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BMX Racers 


THE EXPLOITS OF FINGERS 


MALONE 


Instruktionen: Englisch. 

Die Spielfigur mufs in einem Kletter- 
gerüst mit Aufzügen verschiedene 
Schlüssel einsammeln, um mit diesen 
einen Safe knacken zu können. Hier- 
bei sind allerdings zwei Minimonster 
sehr hinderlich, welche den Safe- 
knacker bei Berührung verspeisen. 

Ist ein Safe geöffnet, gelangt die 
Figur in die nächste Runde von 15. 
Das Spiel läuft sehr schnell ab. so 
dafs man anfangs kaum über die erste 
Spielstufe hinauskommt. Die Grafik 
mufßs als mittelmäßig bezeichnet 
werden, allerdings bleibt der Spiel- 
spafs davon unverschont. 

Ein weiteres Spiel auf dem 
“Baugerüst“. 

Bedingt empfehlenswert 


ROCKMAN + THE RETURN 
OF ROCKMAN 


Instruktionen: Deutsch. 

Die Figur mufs, ähnlich dem bekann- 
ten Automatenspiel. in unterirdi- 
schen Stollen Diamanten aufsam- 
meln. Gräbt er dabei zu nahe an 
den verstreuten Felsbrocken, fallen 
diese hinunter und bei zu langsamer 
Reaktion ihm auf den Kopf. 

Dieses Spiel kommt dem bekann- 
ten Original schon recht nahe und 
ist auch über längere Dauer inter- 
essant. Die Fortsetzung des Spieles, 
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Mit wachsender Verbreitung der 
3.5er-Rechner von Commodore 


“The Return of Rockman“, ähnelt 
der ersten Version sehr stark, ledig- 
lich der Bildschirmaufbau variiert 
etwas. Mit der Grafik hätte man 
sich im Hause Mastertronic zwar 
etwas mehr Mühe geben können, 
das beeinträchtigt den Spaß jedoch 
kaum. 

Empfehlenswert 


Rockman 


wächst auch das Angebot an Spiele- 
software. Zwar ist dieses immer 


VEGAS JACKPOT 


Instruktionen: Deutsch. 

Dies ist eine absolut gelungene 
Nachempfindung der bekannten 
einarmigen Banditen aus Las Vegas. 
Auf vier verschiedenen Scheiben 
rotieren Früchte mit unterschied- 
licher Bedeutung und damit auch 


Kikstart 


TEST | 


noch meilenweit vom legendären 

C 64 entfernt, es ist jedoch offen- 
sichtlich, daß auch für C 16/116/ 
Plus 4-Eigner rosige Spielzeiten 
angebrochen sind. Wir nahmen eini- 
ge Spiele der beiden großen Anbie- 
ter auf dem deutschen Markt, 
Kingsoft und Mastertronic, unter 
die Lupe. 


unterschiedlicher Gewinnmöglich- 
keit. Zuerst zählen natürlich meh- 
rere gleiche Früchte in Reihen- 
folge. Hierdurch gelangt man 

auf die *Risikoleiste‘‘, auf welcher 
ständig der mögliche Gewinn hin- 
und herblinkt. Geht man das Risiko 
ein. kann der Gewinn bis zu ver- 
zehnfacht werden, allerdings ist es 


Spectipede 


natürlich auch möglich, daß der 
Spieler leer ausgeht. Wer das Risiko 
scheut, kann auch den kleinen, aber 
sicheren Betrag übernehmen. 
Stehen neben den Früchten Zahlen 
und beträgt die Gesamtsumme 
mehr als sechs, gelangt man in die 
obere Risikoleiste, in der man sich 
für die Gewinnausspielung ähnlich 
wie vorher qualifizieren kann. 
Erreicht man hierbei durch Über- 
nehmen oder eben durch Risiko- 
bereitschaft eine Nummer, darf in 
der unteren Risikoleiste der Gewinn 
erhöht oder übernommen werden. 
Je nach der oben erreichten Num- 
mer gelangt man unten in eine ent- 
sprechend vorgerückte Position 

auf der Gewinnskala, in der dann 
wie anfangs beschrieben gewonnen 
werden kann. Der Anfangsbesitz 
liegt bei 100 Pfund, erreicht der 
Spieler 250, so hat er den Jackpot 
gewonnen. Mit der überaus gelunge- 
nen Grafik und der wirklichkeits- 
getreuen Funktionsweise stellt die- 
ses Spiel einen echten Ersatz für 
diejenigen dar, die schon immer 
gerne einen ““Einarmigen‘ im Wohn- 
zimmer haben wollten. 


Sehr empfehlenswert 


PS: Leider ist es uns bisher noch 
nicht gelungen, den Computer zur 


Auszahlung von Bargeld zu bewegen. 


SPECTIPEDE 


Instruktionen: Deutsch. 
Dieses Spiel (der Name verrät es 


Finger's Malone 


Froaterr 


Vegas Jackpot - 


bereits) ist dem bekannten Klassi- 
ker Centipede nachempfunden. 

Es müssen durch verschiedene 
Schwierigkeitsstufen hindurch alle 
möglichen Krabbeltierchen, wie 
Spinnen usw., beseitigt werden. 
Erschwert wird dies durch Hinder- 
nisse, welche abgeschossen werden 
müssen und durch den “Plasma- 
bolzen‘ ständig wieder aufgebaut 
werden. Dieser ist übrigens resistent 
gegen sämtliche Schüsse, außerdem 
reflektiert er diese gemeinerweise. 
Durch die hervorragende Grafik 
und sehr hohe Spielgeschwindigkeit 
ist dies ein gelungener “Nachbau“ 
von Centipede auf dem C 16. 

Sehr empfehlenswert 


BMX-RACERS 


Instruktionen: Deutsch. 

Auf einem Kurs, welcher von oben 
dargestellt wird, muß das BMX- 
Rad gesteuert werden. Hierbei müs- 
sen Energiepunkte eingesammelt 
und Markierungsfähnchen überfah- 
ren werden. Durch ein Energie- 
(=Zeit)limit ist es relativ schwierig, 
ins Ziel zu gelangen. 

Hier hindern noch zusätzlich die zu 
hohe Geschwindigkeit und die man- 
gelnde Lenkpräzision. Die absolut 
mißlungene Grafik (das angebliche 
BMX-Rad ist ein hingeklatschter 
Fleck) macht das Spiel auch nicht 
schöner. Leider ist der Schwierig- 
keitsgrad nicht einstellbar, so daß 
der Spafs bald vergangen ist. 

Nicht empfehlenswert 


Daß in England hervorragende 
Programmautoren beheimatet sind, 
ist inzwischen wohl hinlänglich 
bekannt. Das deutsche Software- 
haus Kingsoft allerdings beweist, 
daß sich auch die inländischen 
Programmierer nicht zu verstecken 
brauchen. Kingsoft bietet eine 
ganze Reihe von Spielen auf den 
3.5er-Modellen an. Einige hier- 
von im Test. 


SPACE PILOT 


Ein weiteres Abenteuer im Welt- 
raum. Von oben wird das fliegende 
Schiff dargestellt, dessen Aufgabe 
es ist, verstreut umherstreifende 
Gegner aufzuspüren und zu vernich- 
ten. Vom Bildschirmaufbau und 
der Grafik her absolut hervorra- 
gend, muß dieses Spiel sich jedoch 
auch Kritik gefallen lassen: Die 
Steuerung ist äußerst gewöhnungs- 
bedürftig und in puncto Geschwin- 


digkeit stellt Galaxy mit Sicherheit 
keine Rekorde auf. 

Trotzdem ein interessantes Spiel. 
Empfehlenswert 


GRANDMASTER 


Schachsimulation. Ein hervorragen- 


des Schachprogramm für die C16/ 
C116/Plus 4-Reihe hat Kingsoft 
auch zu bieten. 

Natürlich sind alle Möglichkeiten 
anderer Schachsimulationen eben- 
falls enthalten (z.B. Tip oder Erstel- 
len einer eigenen Partie). Für den 
Schachliebhaber und C 16-Besitzer 
ein Muß! 

Sehr empfehlenswert 


BONGO 


Auf einem Klettergerüst mit Rut- 
schen, Leitern und Aufzügen muß 
die Spielfigur versuchen, herumflie- 
gende Buchstaben aufzusammeln, 
um den Namen “‘Bongo“ zu buch- 
stabieren. Hierbei kommt dem Hel- 
den aber ein langnasiger Schurke 
ins Gehege, welcher nichts Besseres 


zu tun hat, als diesen vom Gerüst 
zu werfen. 

Dieses Spiel stellt in jeder Hinsicht 
eine Bereicherung der eigenen 
Sammlung dar. Angefangen vom ab- 
solut gelungenen Sound, als An- 
fangsmelodie wird das bekannte 
“Axel F.“-Stück gespielt, über die 
hervorragende Grafik bis hin zur 
Spielidee und Durchführung ver- 
dient Bongo uneingeschränktes 
Lob. 


Sehr empfehlenswert 


GHOST TOWN 


In einem unterirdischen Labyrinth 


muß durch viele Räume hindurch 
versucht werden, ein geheimes Lö- 
sungswort zu finden, um den bösen 
Zauberer zu vernichten. Die Grafik 
ist recht gelungen, jedoch kommt es 
durch die großräumige Steuerung 
öfters zu Kollisionen mit Dornen- 
büschen und dergleichen, was zum 
Spielende führt. Daher ist bei Ghost 
Town einige Übung erforderlich, um 
dem Ziel wenigstens auf Reichweite 
nahe zu kommen. Der Spaß bleibt 


mit Sicherheit über längere Zeit 
ungetrübt. 
Empfehlenswert 


GALAXY 


Die inzwischen wohl ausreichend 
ausgelutschte Idee vom einsamen 
Raumschiff, welches sich unbarmher- 
zigen Angreifern stellen muß, ist hier 
zu einem doch recht gelungenen Spiel 
verarbeitet worden. In bekannter 
Weise treibt das eigene Schiff am un- 
teren Bildschirmrand hin und her 
und versucht, die Angreifer, welche 
in immer neuen Formationen und 
Variationen angreifen, zu vernichten. 
Da tauchen ebenso furchterregende 
wie unbarmherzige Elmorcs auf, 
auch mit Forculs (hoffentlich weiß 
wenigstens der Autor, was die gan- 
zen Namen bedeuten) darf sich der 
einsame Streiter beschäftigen. Ein 
recht gelungenes Spiel, welches 
trotz der bekannten Idee durch Ab- 
wechslungsreichtum besticht. Uns 
jedenfalls ist es nicht gelungen, 
irgendeine Angreiferformation wie- 
derholt zu sichten. 

Empfehlenswert 
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LEGIONÄR 


Hier hat eindeutig das 64er-Spiel 
Rambo Pate gestanden. Ähnlich wie 
in diesem geht es auch bei Legionär 
darum, möglichst viele Gegner per 
Maschinengewehrsalven ins Jenseits 
zu befördern. War Rambo schon als 
Film und erst recht als Telespiel 
umstritten, muß sich nun auch 
Legionär solche Kritik gefallen las- 
sen. Natürlich bleibt jedem selbst 
überlassen, ob er am Monitor seine 
Mordgelüste austoben will, ein Spiel 
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TEST 


für das Kinderzimmer ist Legionär 


jedoch wohl kaum. Hier hilft auch 
nicht, daß die Grafik der Landschaft 


sehr gut ausgefallen ist. 
Letztendlich bleibt es wohl beim 
Käufer selbst, ob er dieses Spiel er- 
werben möchte. 

Kein Urteil 


WINTER OLYMPIADE 


Auf dem inzwischen sehr gefragten 


Sport-Spiele-Sektor hat Kingsöft 
neben einem Tennisspiel auch die 
besagte Winterolympiade zu bieten. 


Eigentlich ist es aber ein Drei- 
kampf, denn diese Winterolympia- 
de besteht aus den drei (schönsten) 
Disziplinen Biathlon, Skisprung 
und Bobfahrt. Im Bildschirmaufbau 
absolut identisch mit den berühm- 
ten Winter Games des 64ers, kann 
die Grafik natürlich nicht ganz an 
das Original heranreichen, ist je- 
doch trotzdem recht gelungen. 
Sehr empfehlenswert 


Die Kingsoft-Spiele sind auf Kasset- 
te oder Diskette erhältlich. 
Preise erfahren Sie auf Anfrage. 


SERVICE 


FUNKTIONSTASTENBELEGUNG 
ABSPEICHERN 


Hat man sich die Tastenbelegung für 
eigene Anwendungen entsprechend 
abgeändert und will diese auch spä- 
ter wieder verwenden, so kann man 


sie sich abspeichern. Dazu gibt es 
zwei Möglichkeiten. Zum einen 
kann man den Speicherbereich 
1375-1510 ($055f-$ 05e6) mit 
dem Monitor abspeichern. Dies 


macht man mit folgenden Befehlen: 


monitor 
s“key“ ,8,055f,05e7 
x 


(RETURN) 
(RETURN) 
(RETURN) 


Bei Verwendung der Datasette muß 
man die 8 durch 1 ersetzen. 


Nun kann man mit: 
load“key“,8,1 

new 

oder mit Monitor mit: 
1 “key“,g 


(RETURN) 
(RETURN) 


(RETURN) 


diese Tastenbelegung jederzeit 


wieder-einladen. 


Die zweite Möglichkeit besteht dar- 
in, die KEY-Definition in ein Basic- 
Programm zu schreiben. Dabei kann 
man sich durch einen kleinen Trick 


viel Tipparbeit ersparen. 


Geben Sie ein: 
key 


(RETURN) 


Jetzt stehen ja die ganzen Belegungs- 
befehle auf dem Schirm, es fehlen 
nur noch die Zeilennummern. Dazu 
geht man mit dem Cursor auf das 

k von key, überschreibt es mit 
“autol0* und drückt die RETURN- 
Taste. Mit ESC&A schalten Sie den 
Einfügemodus ein und schreiben 10. 
Dann muß man nur noch 7mal 
RETURN drücken und schon hat 
man ein kleines Basic-Programm zur 
Tastenbelegung, das man wie ge- 
wohnt abspeichern kann. 


ALLES GUTE GEHT NOCH 
BESSER 


Die Originalbelegung der Funktions- 
tasten ist gut durchdacht. 

Man kann sich aber durch leichte 
Änderungen beim Programmieren 
viel Zeit sparen. Will man den 
DIRECTORY-, den LIST- oder 

den RUN-Befehl verwenden, so muß 
man sich ja immer zuerst eine freie 
Zeile schaffen, bevor man die f8- 
Taste drückt, da man sonst einen 
SYNTAX ERROR erntet. 
Schreibt man aber ein ‘CHR$ 
(147)+* (Bildschirm löschen) vor 
den Befehl, kann man die Taste 
auch drücken, wenn sich der Cursor 


mitten in einer beschriebenen Zeile 
befindet. 

Übrigens wird das ‘CHR$(147)+* 
automatisch in ein reverses Herz- 
chen umgewandelt, um Speicher- 
platz zu sparen. Man macht die Än- 
derung also am leichtesten so: Zu- 
erst mit dem Cursor auf das ‘L‘ von 
“LIST* fahren, dann Imal SHIFT/ 
INST, imal SHIFT/CLR und 
RETURN drücken. Ein weiterer 
Trick ist beim DLOAD-Befehl auf 
f2 angebracht. Meist listet man sich 
doch zuerst das Directory auf, um 


laden will, genau heißt. Nun kann 
man mit dem Cursor an den Anfang 


: der Zeile fahren, in der der File- 
: name steht und f2 drücken. Damit 


man nun aber eine gültige Eingabe 
erhält, muß man hinter den File- 
namen noch einen ‘:“ setzen. Dazu 
muß zuerst mit ESC&O der Anfüh- 
rungszeichenmodus ausgeschaltet 
werden, damit man mit dem Cursor 
nach rechts fahren kann. 
Dies alles kann man natürlich auch 
gleich in die Tastenbelegung aufneh- 
men. Wie, zeigt ein Beispiel für eine 
besonders sinnvolle Tastenbelegung, 
er den „krönenden Abschluß“ 
ildet. - 


ji TASTENBELEGUNG 


PAR EXCELLENCE 


Hier ist ein kleines Basic-Programm, 

das eine sehr hilfreiche Funktions- 

tastenbelegung liefert: 

10 rem ++x*key-belegungs+xrxrrxx+% 

15 cr$=chr$(13):c1$=chr$(147 

20 fori=1t021:p$=p$+chr$(29):next 

25 key 1,“gRO“+cr 

30 key 2,"dL‘“+p$+“:“+cr$ 

35 key 3,c1$+"diR“*+cr$ 

40 key 4,“sC“+cr$ 

45 key 5,“dS“+chr$(34) 

50 key 6,c1$+“"rU““+cr$ 

55 key 7,c1$ +“11“+cr$ 

60 key 8,“heL:wA198,63:5sY1470° 
+er 


Hat man die Tastenbelegung fertig, 
sollte man sie sich wie oben beschrie- 
ben mit dem Monitor abspeichern. 
Vorher muß jedoch noch das kleine 
Maschinenprogramm ‘FLASH WEG‘ 
aus dem Artikel über den Monitor ein- 
geladen werden (S. 16). 

Dadurch hat man die HELP-Taste we- 
sentlich verbessert. Drückt man jetzt 
nach einem Fehler im Programm die 
f4-Taste, so erscheint die fehlerhafte 
Zeile, wobei der Teil mit dem Fehler 
blinkt. Da dieses Blinken auf die 
Dauer sehr lästig ist, wartet nun das 
Miniprogramm mit WAIT198,63 
auf einen Tastendruck, um dann 
mit SYS1470 das Blinken abzu- 
stellen. 


TIPS & TRICKS | 


Vorneweg ein paar Be- 
merkungen zum Literatur- 
angebot für diese Compu- 
tertypen: In vielen Publi- 
kationen wird behauptet, 
es gebe so gut wie keine. 
Das ist falsch. Außer den 
neuerdings besser gewor- 
denen Handbüchern gibt 
es allein bei Data Becker 
über sechs Bücher, die sich 
mit diesen Computern 
beschäftigen. 

Im Vergleich zum VC-20 
oder C64 ist das zwar 
nicht viel, aber auch die 
haben mal klein ange- 
fangen. Auch das Ange- 
bot an Software wird 
immer besser. Auf dem 
Spielesektor ragen vor 
allem die Firmen Kingsoft 
und Mastertronic hervor. 
Die Firma Kingsoft bietet 
außer den Spieleprogram- 
men auch Hardwareerwei- 
terungen für die Kleinen 
von Commodore an. Es 
sind eine 16K- und eine 
64K-Erweiterung, wobei 
letztere in den Computer 
eingebaut wird und damit 
immer präsent ist. 

Außer Spielen bietet die- 
se Firma auch noch eine 
Datenbank, eine Textver- 
arbeitung (in Maschinen- 
sprache), ein Mal- und ein 
Musikprogramm an. 


TURBOTAPE 
FÜR C 16 


Zu den bisherigen Pro- 
grammen gesellte sich ein 
Turbo-Tape, das den C-16/ 
C-116/Plus 4 ein ca. 


achtmal schnelleres Laden ° 


und Speichern auf Kasset- 
ten erlaubt. Auch die 
manchmal schwer zu erhal- 
tenden Joystickadapter 
kann man hier bekommen. 
Eine 16K-Hardwareerwei- 
terung gibt es auch bei der 
Firma Jeschke. 

Schmeißt man sich mal in 
Unkosten und investiert 

in ein ausländisches Com- 
putermagazin, gehen einem 
beim Studium die Augen 
auf. Da annoncieren C16/ 
Plus 4 Center, es werden 
Spiele besprochen und 
auch Artikel über diese 
Computer findet man dort. 
In einer Anzeige zählte 

ich über 100 Programme 
für den C-16 bzw. Plus 4. 
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Selbst in der Spielehitpara- 
de werden die Spiele für 
diesen Computer berück- 
sichtigt. 


Nun ein paar Tips, die den 


Umgang mit dem C-16/ 


‚Plus 4 erleichtern sollen. 


Viele, die von einem ande- 
ren Commodore-Compu- 
ter umgestiegen sind, ver- 
missen vielleicht die 
Restoretaste, die ein Aus- 
steigen aus dem Programm 
und damit einen Warm- 
start ermöglicht. Auch 
beim C-16/Plus 4 ist dies 
möglich. Drücken Sie zu- 
erst die RUN/STOP-Taste, 
halten diese gedrückt 
und betätigen dann die 
RESET-Taste. Damit lan- 
den Sie im eingebautem 
Maschinensprachemonitor, 
den Sie dann mit der Be- 
fehlsfolge x >RETURN< 
wieder verlassen können. 
Damit ist das Programm 
wieder da. 
In einem Sonderheft ei- 
ner renommierten Com- 
uterzeitung steht es 
eider umgekehrt. 
Der eingebaute Maschi- 
nensprachemonitor ist 


zwar sehr nützlich, aber 
meiner hat einige Mucken. 
Mir passiert es leider 
öfters, daß das Programm 
aus unerklärlichen Grün- 
den in den Monitor 
springt. Dieses ist zwar 
nicht weiter schlimm, 
aber immer unangenehm. 
Auch für die Besitzer 

der Diskettenstation hält 
der Computer gelegent- 
lich eine „Überraschung“ 
bereit. Vielleicht ist es 
Ihnen auch schon einmal 
passiert, daß plötzlich, 
während des Programmie- 
rens, ein Programm ge- 
laden wurde. 
Wahrscheinlich haben Sie 
ganz aus Versehen die 
SHIFT und die RUN/ 
STOP-Taste betätigt. Da 
die Computer C-16/Plus 
4 ganz auf Diskette aus- 
gerichtet sind, kann mit 
dieser Tastenkombination 
das erste Programm der 
Diskette geladen und 
gestartet werden. Beim VC- 
20 und C64 wird hiermit 
der Cassettenrecorder an- 
gesprochen, der aber nicht, 
wie die Floppy, von allei- 


ne losläuft. Ich jedenfalls 
nehme die Diskette nach 
dem Laden oder Saven 
immer heraus, denn nichts 
ist ärgerlicher als ein 
schon fast fertiges’und 
dann überschriebenes 
Programm. 


FUNKTIONSTASTEN 
FÜR CASSETTEN- 
BETRIEB 


Auch Cassettenbesitzer 
können die mit den Lade- 
befehlen für die Disket- 
tenstation belegten Funk- 
tionstasten (F2/F5) für 
Cassettenoperationen 
wie Saven und Laden ver- 
wenden. Bevor Sie eine 
dieser Tasten: betätigen, 
drücken Sie einmal die 
Escape-Taste und dann 
die entsprechende Funk- 
tionstaste. Versuchen Sie 
es einmal. Sie sparen sich 
eine Menge Tiparbeit. 

B. Weite 


FRIEREN SIE DOCH 
EIN! 


Für die Besitzer von VC- 
20 und C-64 sieht es trü- 
be aus. Aber die Fans 
der l16er-Serie und des 
Plus 4 können sich freu- 
en, denn das Basic dieser 
Computer hält eine Me- 
thode bereit, mit der 
dieser Effekt möglich ist. 
Mit dem Befehl CHR$ 
(27)“T“ wird der obere 
Rand des Bildschirmfen- 
sters festgelegt. Wenn 
nun dieser Befehl hinter 
einem Printbefehl steht, 
wird der Printbefehl in 
den oberen Zeilen ein- 
gefroren, da das Fenster 
(in Neudeutsch Window) 
nicht bis an den oberen 
Bildschirmrand reicht. 


LISTEN IM PROGRAMM 


Geht so etwas? 

Im Basic 7,0 des PC-128 
ist es zum Beispiel mög- 
lich, den Programmablauf 
zu unterbrechen, um ei- 
nen Teil oder das ganze 
Programm auflisten zu 
lassen. Aber auch schon 
im 3,5 Basic der 16er- 
Reihe besteht diese Mög- 
lichkeit. Man setzt ein- 


TIPS & TRICKS 


fach an die Stelle, an der 
gelistet werden soll, den 
Befehl >LIST<, entwe- 
der alleine oder mit ent- 
sprechenden Zeilennum- 
mern versehen, und war- 
tet auf das, was da 
kommt. Wenn das Pro- 
gramm den Befehl er- 
reicht, werden die ent- 
sprechenden Zeilen ’'ge- 
listet und das Programm 
fährt anschließend in sei- 
ner Arbeit fort. Um das 
Listen zu verfolgen, soll- 
te man noch eine FOR- 
NEXT-Schleife anhängen, 
damit man das Listing 
besser beobachten kann. 
Sie können sich die ge- 
listeten Zeilen sogar auf 
dem Drucker ausgeben 
lassen. 
Solch eine Zeile kann 
2.B. so aussehen: 
XXXX OPEN4,4:CMD4 
:LIST 


10-20:PRINT #:CLOSE4 
Nach dem Ausdrucken 
fährt das Programm mit 
seiner Arbeit weiter fort. 


* 


MONITOR 
AUSGEDRUCKT 


Vielleicht haben Sie 
schon einmal gedacht: 
Könnte ich doch nur den 
Inhalt des Maschinen- 
sprachemonitors als Do- 
kumentation ausdrucken! 
Leider hat der Monitor 
keinen entsprechenden 
Befehl, um diese Arbeit 
zu erledigen. Aber es geht 
doch. Geben Sie im Di- 
rektmodus folgende 
Zeilen ein. Open4,4: 
CMD4 


Anschließend gehen Sie 
in den Monitor. Ihr 
Drucker wird sich jetzt 
schon mit >Monitor und 
Ready< melden. Jetzt 
geben Sie einfach den 
auszudruckenden Be- 
reich an, z.B. D10001 
FFF oder M 1000 IFFF, 
und schon wird der In- 
halt dieser Speicherstel- 
len auf dem Drucker aus- 
gegeben. Zum Schluß 
verlassen Sie den Monitor 
wieder mit X und schlie- 
ßen den Druckerkanal 
mit >Print#4:Close4< 


DRUCKER-DIRECTORY 


OHNE PROGRAM 
VERLUST 


M- 


Um sich eine Directory 
ausdrucken zu lassen, 
mußte man sie bisher in 
den RAM-Speicher laden. 
Dadurch wurde ein im 
Speicher stehendes Pro- 
gramm überschrieben. 
Das muß nicht sein. Lei- 
ten Sie die Directory ein- 
fach gleich auf den Druk- . 
ker. Sie bekommen ei- 
nen Ausdruck und das 
Programm ist auch noch ° 
heil. Um dieses zu errei- 
chen, geben Sie einfach 
folgende Zeile ein: 
>OPEN4,4:CMD4: 
DIRECTORY< 
>RETURN< 

Zum Schluß müssen Sie 
nur noch den Druckerka- 
nal mit >PRINT #: 
CLOSE$< >RETURN< 
schließen. Versuchen Sie 
es einmal. 


SCHLEIFENBEHAND- 


LUNG IM BASIC 3.5 


Was soll ich mit Schleifen, 


werden Sie sich fragen. 
Wofür brauche ich Schlei- 
fen beim Programmieren? 
Einige Fragen, die immer 
wieder auftauchen. Ob- 
wohl viele nicht wissen, 
was eine Schleife beim 
Programmieren ist, sind 
fast alle schon darüber ge- 
stolpert. Fast kein Pro- 
gramm kommt ohne 
Schleifen aus. Sei es um 
zu zählen, den Computer 
für eine bestimmte Zeit 
anzuhalten, um eventuell 
auf Eingaben zu warten, 
oder zum Einlesen von 
Daten aus Datazeilen und 
viele Anwendungen mehr. 
Vielleicht haben Sie in 
einem Listing schon mal 
den Begriff FOR...TO... 
NEXT gelesen. Das ist 


- schon eine Schleife. Heute 


wollen wir uns aber mit 
der. Möglichkeit der 
Schleifenprogrammierung, 
die uns das Basic 3.5 bie- 
tet, beschäftigen. 
Gegenüber dem Basic der 
Computer VC-20 und C- 
64 verfügt das Basic 3.5 
über die Möglichkeit des 
strukturierten Program- 


mierens. Durch die neuen 
Schleifenbefehle des 
Basic 3.5 erübrigen sich 
die für Unübersichtlichkeit 
sorgenden GOTO-Sprünge. 
Mit den Befehlen DO, 
LOOP, UNTIL, WHILE 
und EXIT können jetzt 
Schleifen schnell und ein- 
fach programmiert wer- 
den. Um z.B. die oft ver- 
wendete, aber eigentlich 
unerwünschte, Endlos- 
schleife zu programmieren, 
genügen nun nur noch 
zwei Befehle: DO und 
LOOP. Auf den ersten 
Blick erscheint die Schlei- 
fe auch nicht kürzer als . 
die Kombination 100 
GOTO 100. Da aber die 
Sprungbefehle immer 
von 0 an hoch gezählt 
werden, ist die Schleife 
mit 100 DO:LOOP viel‘ 
schneller. Mit einer End- 
losschleife kann man im 
allgemeinen nicht viel an- 
fangen, denn Schleifen 
müssen irgendwann zum 
Ende kommen, also end- 
lich sein. Eine endliche 
Schleife mit DO LOOP 
sieht etwa so aus. 


120 X=X+1 

130 LOOP UNTIL X=10 
140 PrintX 

In dieser Schleifenversion 
erfolgt der Austritt aus 
der Schleife am Ende der- 
selben. Denn dort steht 
die Bedingungsabfrage 
“UNTIL X=10“. Diese 
Schleife läuft also solange, 
bis X den Wert 10 hat. 
Man kann auch die Um- 
kehrung nehmen. Nämlich 
“WHILE <>10“., Diese 
Schleife läuft so lange, bis 
X ungleich 10 ist. 

Daraus resultiert: Wird in 
einer Schleife UNTIL 
verwendet, wird die Schlei- 
fe solange durchlaufen, 
bis (nach Booleschen 
Regeln) die Anweisung 
“wahr“ wird. WHILE 
stellt praktisch das Gegen- 
teil von UNTIL dar, die 
Schleife wird solange 
durchlaufen, wie die An- 
weisung “wahr ist. 

Um einen Austritt am 
Schleifenanfang zu errei- 
chen, setzt man den Be- 
fehl UNTIL einfach hinter 
den Befehl DO. Diese 
Schleifenart nennt man 


abweisende Schleife, 
denn wenn der Befehl 
WHILE am Anfang der 
Schleife steht, wird, falls 
die Bedingung hinter 
WHILE erfüllt ist, der 
Schleifendurchlauf nicht 
mehr durchgeführt; woge- 
gen bei unserer Beispiels- 
schleife die Bedingung 
erst am Ende erfüllt sein 
muß. Diese Schleifenart 
nennt man abweisende 
Schleife. Der Befehl 
EXIT ermöglicht einen 
Ausstieg aus der Schleife 
zu einem bestimmten 
Zeitpunkt. Dieser erfolgt 
im Zusammenhang mit 
einer IF..THEN Abfrage, 
z.B. IFA$=50 THEN 
EXIT.EXIT unterbricht 
also die Schleife, um ir- 
gendwas in einer Variablen 
zu speichern. Nach EXIT 
verzweigt das Programm 
in die der Anweisung 
LOOP folgende Zeile. Die 
Struktur einer DO LOOP 
EXIT Schleife sieht fol- 
gendermaßen aus: 

fr DO 


“user 


Zum Schluß kommen wir 
zu der wohl schon all- 
seits bekannten FOR... 
NEXT Schleife. Diese 
Schleifenart wird haupt- 
sächlich als Zähl- oder 
Warteschleife angewendet. 
Auch zum Einlesen von 
Daten aus Datazeilen in 
den Speicher kann sie 
recht nützlich sein. Da die 
Überprüfung der Schleife 
am Ende erfolgt, wird 
eine Schleife mit FOR X 
=5TO5:NEXT nur einmal 
durchlaufen. 

Halt! Eine Schleifenart 
hätten wir bald noch ver- 
gessen. Die Warteschleife 
mit GET. Das Basic 3.5 
stellt uns hier den Befehl 
GETKEY zur Verfügung, 
das Programm wartet an 
dieser Stelle so lange, bis 
ein Zeichen über die 
Tastatur eingegeben wird. 
Erst dann fährt das Pro- 
gramm in seiner Abarbei- 
tung fort. 

Fazit: Durch die Schlei- 
fenbehandlung des Basic 
3.5 wird eine Programmie- 
rung weitgehend ohne 
GOTO-Sprünge ermöglicht. 
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| SERVICE 


DAS ROM-LISTING 
FÜR DEN PLUS 4 


Auf 260 Seiten stellt das 
Buch eine unerläßliche 
Informationsquelle für 
alle diejenigen dar, die 
sich näher mit dem Com- 
puter, insbesondere der 
Assemblerprogrammie- 
rung beschäftigen. Auch 
der normal sterbliche Pro- 
grammierer findet hier ei- 
ne Menge Informationen, 
die er zum Programmie- 
ren, bzw. zum Umschrei- 
ben von Programmen 
benötigt. Auf den ersten 
6 Seiten firrdet der Leser 
die Speicherbelegung mit 
allen notwendigen Erklä- 
rungen dieser Speicher- 
stellen. Auch befindet sich 
hier eine Auflistung der 
Speicherbereiche, die beim 
Einschalten der Grafikbe- 
reiche verschoben werden. 
Die restlichen 269 Seiten 
enthalten das komplette 
Rom-Listing als Assem- 
bler-Quellcode mit in 
deutscher Sprache kom- 
mentierten Codesequen- 


zen. 

Leider trübt der Preis von 
59,— DM die Freude et- 
was. Zu beziehen ist die- 
ses Buch über den Compu- 
ter-Fachhandel oder über 
Buchhandlungen. 


DER COMMODORE 16 
IN DER PRAXIS 


Dieses Buch befaßt sich 
im einzelnen mit Zeitmes- 
sung, Grafik, Entwicklung 
und Gebrauch von Dia- 
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grammen, Musikprogram- 
mierung und Büroarbei- 
ten einschließlich einer 
Datenbank, eines einfa- 
chem Textverarbeitungs- 
systems und einer Finanz- 
verwaltung. Der Benutzer 
wird Schritt für Schritt 
durch die einzelnen Pro- 
grammabschnitte der Ka- 
pitel geführt, wobei mit 
Erklärungen und Erläu- 
terungen nicht gespart 
wird. Die einzelnen Mo- 
dule, die dann zu einem 
Programm zusammenge- 
setzt werden, bestehen 
im Schnitt aus ca. 10 bis 
30 Zeilen und sind somit 
leicht übersehbar. Auch 
wird jedesmal der genaue 
Ablauf des Moduls er- 
klärt. Durch die sehr ge- 
nauen Erläuterungen ist 
dieses Buch für den An- 
fänger empfehlenswert, 
wobei er noch zwei Flie- 
gen mit einer Klappe 
schlägt. Zum ersten wird 
er Schritt für Schritt in 
die Programmierung des 
C16 eingeführt, zum an- 
deren erhält er dadurch 
einige recht interessante 
Programme für seinen 
persönlichen Gebrauch. 
Das Buch kostet ca. 

20,— DM. 


DAS GROSSE 
C-16-BUCH 


„Alles, was Sie schon 
immer über den C-16 wis- 
sen wollten.‘ So lautet 
der Untertitel dieses neu- 
en Buches über den C-16 
und seine Brüder, den 
C-116 und den Plus 4. 


Auf ca. 215 Seiten be- 
handelt das Buch alle 
Themen, die den C-16-Pro- 
grammierer schon lange 
interessieren. 

Seien es die Grafikmög- 
lichkeiten des eingebauten 
TED-Chips, oder die 
Soundprogrammierung in 
Basic und Maschinenspra- 
che. Auch wird ein Ein- 
führungskurs in die Ma- 
schinensprache dem Leser 
nicht vorenthalten. Die 
einzelnen Kapitel behan- 
deln die verschiedenen 
Themen ausführlich und 
sind mit guten und aus- 


 reichenden Erklärungen 


versehen. Da der C-16 
einen eingebauten Ma- 
schinensprachemonitor 
besitzt, war es möglich, 
fast alle in diesem Buch 
beschriebenen Beispiele 

in Basic und Maschinen- 
sprache darzustellen. 
Außer den vielfältigsten 
Beispielprogrammen aus 
allen Bereichen, wie Gra- 
fik, Sound und den ver- 
schiedensten Hilfspro- 
grammen, enthält das 
Buch noch verschiedene 
Listen, wie sie jeder Pro- 
grammierer einmal 
braucht, um sich das Pro- 
grammieren zu erleichtern. 
Etwa einen Befehlssatz 
des Prozessors 7501, ei- 
nen Speicherplan (Memo- 
rymap), die ausführlich 
erläuterten Kernal-Routi- 
nen (mit Beispielen) und 
auch noch eine Vergleichs- 
tabelle der C-64 und C-16- 
Speicherstellen. Auch eine 
Tokenliste der wichtigsten 
Basic-Schlüsselwörter fehlt 
nicht. Durch seine knappe 
aber präzise Ausdrucks- 
weise ist es dem Autor ge- 
lungen, alles, oder fast 
alles, was den C-16-Freak 
interessiert, in diesem 
Buch unterzubringen. 


Das Buch, mittlerweile 
schon in seiner 2. Auflage 
erschienen, kann allen 
C-16; C-116- und Plus-4- 
Besitzern nur wärmstens 
empfohlen werden. 

B. Welte 


Info: Das große C-16- 
Buch. 

Ca. 215 Seiten. Erhältlich 
bei Kingsoft, Schnacke- 
busch 4, 5106 Roetgen. 
Preis: 29,— DM 


EFFEKTIV UND 
KREATIV MIT 
DEM PLUS 4 


Mit dem Untertitel 
„Ein Wegweiser zum 0p- 


.timalen Einsatz“ ist dieses 


Buch speziell auf den 
Plus 4 zugeschnitten, 
bzw. auf die eingebaute 
Software bezogen. 

Das Buch versucht, 

nach einer ausführlichen 
Einleitung, über den Sinn 
und Zweck einer Text-, 
Datenverarbeitung, Ta- 
bellenkalkulation und ei- 
nes Grafikpakets, eben 
die eingebaute Software, 
Tips für eine optimale 
Nutzung zu geben. 

Nach einer ausführlichen 
Erklärung der Unter- 
schiede zwischen deut- 
scher und englischer Aus- 
gabe des Plus 4 wird auf 
über 10 Seiten die Instal- 
lation eines Druckers an 
den Plus 4 beschrieben. 
Auch die Installation ei- 
nes Fremddruckers wird 
ausführlich behandelt. 
Allerdings ist hier die 
Hausmarke (Epsondruk- 
ker mit Data-Becker- 
Interface) Bezugspunkt. 
Die folgenden Seiten 
sind reserviert für das Er- 
stellen einer Rechnung 
mit der Plus 4-Textver- 
arbeitung, und beziehen 
sich hauptsächlich auf 
die Erstellung einer 
Druckermaske. Aller- 
dings in allen Variatio- 
nen,mit ausführlicher 
Erläuterung der Drucker- 
steuerzeichen und mit 
vielen Ausdruckbeispie- 
len in allen Größen an- 
gereichert. Weitere Kapi- 
tel beschäftigen sich 

mit der Plus 4-Tabellen- 
kalkulation und der Datei- 
verwaltung. Auch die 
Grafik wird in einem Ka- 
pitel behandelt. Die letz- 
ten Kapitel des Buches 
beschäftigen sich mit ver- 
schiedenen Hilfsprogram- 
men, von der formatier- 
ten Eingabe bis zum Joy- 
stick-Painter. Bernd Welte 


Info: Froitzheim/Kaus- 
mann, Effektiv & 
Kreativ mit dem Plus 4, 
Data-Becker, Düsseldorf, 
ISBN 3-89011-073-8, 
Preis: 49,— DM 
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C16 TIPS & TRICKS 


Hier stellen wir Ihnen ein 
neues Buch aus der 
“Roten Reihe‘ der Data 
Becker-Bücher vor. Der 
Titel läßt auf eine Fülle 
von Informationen hof- 
fen, man wird an das 

fast legendäre “Tips & 
Tricks-zum C64‘ erinnert. 
Das C16-Buch ist jedoch 
nur halb so dick, dafür ist 
die Schrift etwas größer 
ausgefallen. 

Nun ist der C16 als Ein- 
steigercomputer gedacht 
und dieses Buch richtet 
sich auch an diese 
Gruppe. Wer sich jedoch 
tiefgreifende Einsichten 
über die besonderen 
Tricks des C16 erhofft, 
ist weiterhin auf das Hand- 
buch und andere Literatur 
angewiesen. Für den, der 
aber erst beginnt, die 
Welt der Computer zu er- 
obern, bietet das Buch 
doch einiges Lernenswer- 
tes. 

Sehr lobenswert ist die 
Methode, mit der die un- 
leserlichen Steuerzeichen 
im Programmlisting ver- 
mieden werden. 

Während Data Welt, 

die Tochterzeitschrift aus 
gleichem Hause, nach wie 
vor mit großer Hartnäckig- 
keit die reversen Rate- 
kästchen in ihren Basic- 
listings abdruckt, hat sich 
der Autor dieses Buches 
zu der Methode entschlos- 
sen, die bei der COMMO- 
DORE WELT schon von 
Beginn an verwendet 
wird. Die Steuercodes 
werden durch eine String- 
variable ersetzt, welche 
dann im weiteren Pro- 
gramm verwendet wird 
(z.B. CL$=CHR$(147)). 
Ebenfalls gut ist die Be- 
schreibung der Program- 
me. Die einzelnen Beson- 
derheiten der Program- 
mierung werden erklärt. 
Das Kernstück des Bu- 
ches bildet ein ‘Textver- 
arbeitungs- und Dateiver- 
waltungsprogramm‘, mit 
dem man sage und 
schreibe eine DIN A4- 
Seite bearbeiten (66 Zei- 
len zu 74 Zeichen) und 
darin Begriffe ordnen 


Baloui 


C 16 


Tips & Tricks 


Eine Fundgrube für den 
Commodore 16 Anwender 


EIN DATA BECKER BUCH 


und suchen kann. Dieses 
Programm ist den Ver- 
hältnissen des C 16 nicht 
angepaßt, da die Rela- 
tion zwischen Programm- 
länge und Textlänge zu 
Ungunsten des Textes 
geht. Aber man will ja ei- 
gentlich daraus lernen. 
Die sechs wichtigsten Pro- 
grammiertricks sind noch- 
einmal extra ausgeführt. 
Enttäuschend ist, daß die 
im Vorwort versproche- 
nen wichtigsten Zeropage- 
Adressen sich in der An- 
gabe von 3 Bereichen er- 
schöpft, in denen Maschi- 
nenprogramme unterge- 
bracht werden und auch 
die angesagte Bedienungs- 
anleitung des Monitors 
nicht wesentlich über das 
Handbuch hinausgeht. 
Einige Angaben erwecken 
den Eindruck, als hätte 
der Autor sich nur zum 
Zwecke des Buchschrei- 
bens mit dem C 16 befaßt. 
Sonst wüßte er, daß man 
mit dem CHAR-Befehl 
sehr wohl den Cursor pos- 
sitionieren kann, ohne 
dabei einen String auszu- 
geben, indem man näm- 
lich einen Leerstring an- 
gibt. Das gleiche gilt für 
den Tip, alle Tasten auf 
Dauerfunktion zu schalten, 
indem man POKE344,128 
eingibt. Dies ist nämlich 
der Einschaltzustand! 


: Wer ein Buch zu seinem 


C 16 sucht, sollte sich 
das, was er kaufen will, 
genau ansehen und sich 
fragen, ob es ihm mehr 
bringt als das was in ent- 
sprechenden Zeitschriften 
abgedruckt ist. Bei diesem 


Buch ist das jedenfalls 
nur bedingt so. 


Preis: 
pro Band 29,— DM 


Technisches: 

201 Seiten — Format 
14,5x21 cm, gebunden, 
auf Mattpapier gedruckt 


BASIC-WEGWEISER 
FÜR DEN COMMODORE 
116, 16, Plus/4 


In der Reihe der BASIC- 
Wegweiser wurde nun 
auch der C16 aufgenom- 
men. Dieses, unter den 
C-16-Büchern ungewöhn- 
lich umfangreiche, Buch, 
beginnt im ersten Viertel 
mit einer ausführlichen 
Einführung in aktuelles 
Grundlagenwissen zur 
Datenverarbeitung bzw. 
Informatik. 

Dieser Teil ist unabhängig 
vom eigentlichen C16-Teil 
und kann getrost über- 
sprungen werden, wenn _ 
man nicht sein Allgemein- 
wissen in punkto Compu- 
ter aufbessern will. 

Für den absoluten Compu- 
terneuling ist diese Vor- 
gehensweise empfehlens- 
wert, da er sonst vielleicht 
von der Fülle der Informa- 
tion, die mit seinem C16 
direkt nichts zu tun hat, 
abgeschreckt werden könn- 
te. Im zweiten Kapitel 
geht es dann über ca. 40 
Seiten ausführlich um das 
3.5er Basic des C 16, mit 
einer gut erklärten Liste 
der BASIC-Befehle. Hier 
wird auch auf die Bedie- 
nung der Tastatur und der 
Peripherie eingegangen 
sowie ein Vergleich des 
BASIC 3.5 zu BASIC 2.0 
und BASIC 4.0 geliefert. 
Das dritte Kapitel enthält 
einen 180 Seiten starken 
BASIC-Programmierkurs, 
der ganz auf den C16 ab- 
gestimmt ist. Anhand von 
vielen Programmen wer- 
den wichtige Programm- 
strukturen erklärt und die 
Grundlagen zur Planung 
und Entwicklung von 
Programmen dargelegt. 
Es wird ausführlich Auf 
Verarbeitung von Text 
und Tabellen sowie auf 
das Suchen und Sortieren 


von Daten eingegangen. 
Auch die Verwendung 
der Graphik und der Mu- 
sik in BASIC-Programmen 
kommt nicht zu kurz. 
Etwas störend ist nur die 
permanente Verwendung 
des LET-Befehls, der völ- 
lig unnötig ist. Statt 
‘LET A=B‘ braucht man 
einfach nur ‘A=B‘ zu 
schreiben. Auch wird 
überhaupt nicht auf den 
Kassetten-Betrieb einge- 
gangen, so daß der Leser, 
der keine Diskettensta- 
tion besitzt, die entspre- 
chenden Programme um- 
schreiben muß. Dies soll- 
te jedoch mit Hilfe des 
Handbuches leicht mög- 
lich sein. 

Das Buch eignet sich gut 
für den, der ernsthaft das 
Programmieren in BASIC 
erlernen will. Es wirkt 
etwas schulbuchhaft, was 
durch die lobenswerten 
grauen Kästchen, in de- 
nen wichtige Informatio- 
nen hervorgehoben wer- 
den, noch verstärkt wird. 
Keine Information wird 
der finden, welcher nach 
hardwarespezifischen 
Tricks zum C 16, wie die 
Zeropagebelegung und 
SYS-Adressen sowie den 
Einsatz von SHAPES 
sucht. Also nichts für 
Spieler, sondern nur für 
‘ernsthafte‘ BASIC- 
Programmierer. 


Untertitel: 
Datenverarbeitung mit 
BASIC 3.5 


Autor: 
Ekkehard Kaier 
ISBN 3-528-04337-7 


Verlag: 

Vieweg Verla 
Postfach 582 
6200 Wieskaden 


PER en: 
Buchhandlungen — 
Computershops 


Technisches: 

304 Seiten — Format 
16x23 cm, 87 Programm- 
beispiele, 116 Abbildun- 
gen, 40 Programmablauf- 
pläne und Struktogram- 
me, gebunden, auf Matt- 
papier gedruckt. 

Die Programme sind auch 
auf Diskette zu 48,— DM 
erhältlich. 
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TEST 


LÜCKE 
GESCHLOSSEN: 
TEXTVER- 
ARBEITUNG 
AUCH FÜR Ci16! 


Der private Computeranwender, dr 
des Spielens überdrüssig geworden ist, RO 
sieht sich über kurz oder lang nach 
anderen Aufgaben um, die sein 
Computer übernehmen kann. 
Zwangsläufig zieht er außer Dateien 
auch eine Textverarbeitung in Be- 
tracht. Für die meisten Homecompu- 
ter, wie C-64 und 128 PC, gibt es die- 
se Programme schon in sehr großer 
Zahl, so daß man hier schon fast die 
Übersicht verliert. Anders sieht es 
bei den “Bonsai-Computern“ (C-16/ 
C116) von Commodore aus. 
Eine Ausnahme bitet die doch et- 
was magere Textverarbeitung des 
Plus 4. Für den C-16/C116 gibt es, 
soweit bekannt, nur eine Textverar- 
beitung der Firma Kingsoft. 


STECKMODUL SCHAFFT 
SPEICHERPLATZ 


Die, da sie in den Speicher geladen 
wird, läßt nicht mehr viel Speicher- 
platz für den Text übrig. Diese 
Lücke schließt nun das neue Text- 
verarbeitungssystem “Script/Plus“ 
von Commodore. Als Modul für 
den Expansionsport belegt es kei- 
nen Speicherplatz und kann sich 
doch mit vielen hochwertigen Text- 
verarbeitungen messen, die für an- 
dere Computer angeboten werden. 
Nach dem Einschalten und Starten 
des Moduls mit der F2-Taste ist der- 
jenige, der das Programm Easy- 
Script kennt, doch etwas über- 
rascht, denn das Titelbild ist zu 
90% mit diesem identisch. Kein 
Wunder, kommt es doch aus dem 
gleichen Softwarehaus. 

Nach dem Einschalten und vor Ein- 
gabe des Textes muß der Benutzer 
nun noch einige Grunddaten ein- . 
geben. Die Anzahl der Zeichen pro 
Zeile geht von 40 — 240 Zeichen 
pro Zeile. 
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Ein preisgünstiger 
Drucker für den 
C16/Plus 4: 

der Speedy 


“ 


Man sollte die angegebene Zeichen- - 
zahl(40) beibehalten, da sonst der 
Bildschirm seitlich auswandert und 
man dann leicht die Übersicht verliert. 
Die höhere Zeichenanzahl sollte 

man bei der Erstellung von Tabellen 
anwenden, da man hier sowieso mit 
der Tabfunktion arbeitet, um die 
einzelnen Punkte wiederzufinden. 
Als nächstes wählt man zwischen 
Disketten- und Kassettenspeicherung 
aus. Auch die Druckerauswahl wird 
in diesem Menüpunkt vorgenom- 
men. Hier stehen schon Drucker zur 


Verfügung. Nach Eingabe aller Da- \ 
ten gelangt man in den Editier- 
Modus. Jetzt kann man den ge- 
wünschten Text eingeben. Über das 
Zeilenende oder ähnliches braucht 
man sich keine Gedanken zu. machen, 
denn das ist Aufgabe des Formatie- 
rens. Mit Hilfe des Trennungsvor- 
schlages, der unter Nutzung der _ 
Escape und Commodore-Taste er- 
folgt, kann das Programm dann gege- 
benenfalls die Wörter trennen. 
(Anmerkung: Auf Seite 75 Abs. 3,11 
des Handbuches steht es etwas 
anders!) 

Hat man den Text vollständig einge- 
geben, kann man daran gehen, den 
Text zu formatieren. Dazu stehen 
dem Benutzer eine Vielzahl von Be- 


fehlen zur Verfügung. Diese werden 
immer an die Stelle im Text gesetzt, 
ab der sie wirksam werden sollen 
und beeinflussen den Ausdruck, 

bis sie entweder aufgehoben oder 
durch neue ersetzt werden. Vor je- 
der Formatierungseingabe muß die 
Tastenkombination >CONTROL 9< 
benutzt werden. 


UMFANGREICHER 
BEFEHLSSATZ 


Folgende Befehle stehen zur Ver- 
fügung: 

— rechten Rand setzen 
— linken Rand setzen 
— Papierlänge 

— Textlänge 

— Zeilenabstand 

— Zentrieren 

— Blocksatz 

— rechtsbündiger Rand 
— Zeilenvorschub 


| TEST 


— Leerzeichen 

— Rand lösen 

— erzwungener Seitenumbruch 

— Kommentarzeilen 

— Schreibdichte 

— Zeilendichte 

— Seitenanfang 

— Hoch- und Tiefschreibung 

— Unterbrechung 

und noch viele mehr. 

Außer der vielfältigen Druckerausga- 
be können alle Texte natürlich auch 
auf Kassette oder Diskette abgespei- 
chert und wieder geladen werden. 
Als Besonderheit kann man hier be- 
trachte, daß Text-File des Script/Plus 
und des Easy/Script untereinander 
ausgetauscht und auch bearbeitet 
werden, wenn man die unterschied- 
lichen Formatbefehle in Betracht 
zieht. Das trifft besonders auf den 
inversen Stern zu, der mit dem ent- 
sprechendem Programmbefehl ge- 
ändert werden muß. 

Eine weitere Besonderheit ist der 
eingebaute Rechner, der alle Grund-* 
rechenarten incl. Prozentrechnen im 
Text oder extern ermöglicht. Da- 
durch ist natürlich das Erstellen von 
Rechnungen und dergleichen zu ei- 
nem Kinderspiel geworden. 

Für Plus 4-Besitzer, die die etwas ma- 
gere eingebaute Textverarbeitung 
leid sind, bietet Script/Plus etwas 
ganz Besonderes. Durch seinen gro- 
ßen Speicher bedingt, können zwei 
verschiedene Texte gleichzeitig im 
Speicher stehen und auch bearbeitet 
werden. Hierzu bietet das Programm 
den SWAP-Befehl an, der ein Um- 
nalen zwischen den Texten ermög- 
icht. 


ZWEI TEXTE GLEICHZEITIG 
BEARBEITEN 


Der wichtigste Teil eines Textverar- 

beitungsprogrammes ist natürlich die 

Be- und Verarbeitung von Texten. 

Auch in diesem Punkt hat Script/ 

Plus einiges zu bieten: 

— Löschen von größeren Text- 
mengen 

— Löschen von Buchstaben, Zeilen 
und Textblöcken 

— Einfügen 

— Verschieben 

— Suchen ; 

— Suchen und Austauschen 

— Überspeichern 

— Einbau einer Kopf- und/oder ° 
Fußzeile 

— Unterstreichen und Fettdruck 

— Form und Serienbriefe 

— Tabulatoren und Zahlenbetrieb 

— Globale Operationen: 

* Suchen 

* Suchen und Austauschen 


* Ausgabe auf dem Bildschirm 

* Ausdrucken 

Script/Plus bietet dem Benutzer 
auch noch die verschiedensten 
Lösch- und Kopierfunktionen. 
Auch können Textteile, die auf dem 
Drucker vergrößert dargestellt wer- 
den sollen, auf dem Bildschirm re- 
vers abgebildet werden. Such- und 
Austauschfunktionen sind natürlich 
auch in diesem Programm enthalten. 
Diese beziehen sich auf den Text im 
Hauptspeicher wie auch auf die 
Texte, die auf der Diskette gespei- 
chert sind. Da wir schon einmal bei 
der Diskettenstation sind: Hier ste- 
hen dem Anwender alle Befehle der 
Floppy zur Verfügung. Das reicht 
vom Formatieren bis zum Einlesen 
und Ausdrucken der Directory. 
Texte, die durch ihre Länge nicht 
mehr in den Speicher passen, kön- 
nen durch Verkettungsbefehle auf 
dem Drucker ausgegeben werden. 
Auch besteht die Möglichkeit, mit- 
tels Datafiles Serienbriefe zu erstel- 
len, wobei die Daten über spezielle 
Befehle an die richtige Stelle des 


“ Textes gesetzt werden. 


MIT SCRIPT/PLUS 
BEKOMMT DER DRUCKER 
FUTTER 


Da Script/Plus als Modul im Expan- 
sionsport betrieben wird, kann es 
durch einen Befehl ein- und ausge- 
schaltet werden. Auch kann wäh- 
rend des Arbeitens mit dem Pro- 
gramm ein Neustart durchgeführt 
werden, um z.B. die Zeichenzahl 
oder den Drucker zu wechseln, oh- 
ne daß der Text im Speicher ver- 
lorengeht. 

Nach so viel Lob hält das Pro- 
gramm auch einen Tadel aus: das 
Handbuch. Nicht, daß es schlecht 
wäre. Nein. Aber, obwohl es mit 
ca. 150 Seiten die Fähigkeiten des 
Programms sehr gut und ausführ- 
lich erklärt, hat es doch einen 
schwerwiegenden Fehler, es ist nur 
in englisch erhältlich, was den 
deutschsprachigen Benutzer doch 
vor einige Probleme stellt. 


FAZIT 


Das wohl beste Textverarbeitungs- 
programm, das für die kleinen 
Commodore-Computer zur Verfü- 
gung steht. Auch Plus 4-Anwender 
sollten sich dieses Programm einmal 
ansehen, da es das eingebaute um 
Längen schlägt. 
Preis: 39,— DM 

Bernd Welte 


NR. 7/86-Juli 3. Jahrgang-DM 5,50 / 08 46 / SAF 5,50 


* 


Schneller 
als der 
Schall: 
Turbo-Trans 


Was Sie in 
keinem 


Handbuch 
finden: 


Vier Seiten 


Poke & Peeks 


Über 20 
Seiten 
Listings für 
eile 
Commodores 


Für Sie 
getesiet: 
Star-Text 
von Sybex 


Tips & Tricks 
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KEINE ANGST 
VOR DEM 


MONITOR 


Einer der Vorzüge der C16-Reihe (C16/C116 und Plus 4) ist 
zweifelsohne der eingebaute Maschinensprache-Monitor Tedmon. 
Im Anhang des Handbuches (Seite 218-225) sind die einzelnen Befehle 
erklärt. Der Anfänger benötigt aber doch noch einige Tips und Hinweise, 
wie er ihn sinnvoll verwenden kann. Dieser Artikel soll vor allem dazu 
dienen, einige Möglichkeiten aufzuzeigen, um dem Anfänger die 
Scheu vor Tedmon zu nehmen. 


Sicher denken viele, da sie ja vor- 
erst mit Basic vollauf beschäftigt 
sind, daß Maschinensprache etwas 
sei, das nur Freaks verstehen. Diese 
sollten unbedingt weiterlesen. 

Man kann den Tedmon auch von 
Basic aus nutzen. Will man vorhan- 
dene Maschinenroutinen in sein 
Programm einbauen, so kann man 
sie wie gewohnt mit: 

LOAD “name“ 8,1 (RETURN) 
einladen. Dabei verändern sich aber 
die Speicherstellen 43 — 46, die in 
Basic Programm-Anfang und -Ende 
anzeigen. Mit dem L-Befehl des 
Monitors kann man dies umgehen. 
Zunächst muß man den Tedmon mit 
MONITOR RETURN) 
(oder mO als Abkürzung) aufrufen. 
Die Registerinhalte, welche dann 
angezeigt werden, interessieren uns 
hier nicht. Mit 

L‘'name‘‘,8 (RETURN) 
(mit ‚I bei Kassette) wird das Ma- 


10 rem 
20 rem 
30 rem 
40 rem 
50 


schinenprogramm geladen und nach 
(RETURN) 
befindet man sich wieder im Basic, 
ohne daß die Speicherstellen 43— 
46 verändert sind. Das ganze kann 
man auch vom Basic-Programm 
aus machen. Dazu muß man sich der 
Tastaturpuffermethode bedienen. 
Zuerst wird der Text, den man beim 
Laden von Hand eingeben würde, 
mit CHAR-Anweisungen genau an 
den Stellen ausgegeben, wo man ihn 
in obigem Beispiel auch geschrieben 
hat. Dann wird der Cursor auf dem 
ersten Befehl (MONITOR) plaziert 
und in den Tastaturpuffer sooft die 
Zahl 13 (Kodezahl für RETURN) 
gepoket, wie man auch von Hand 
RETURN drücken würde. In die 
Speicherstelle 239 muß man noch 
die Anzahl der simulierten Tasten- 
drucke poken. Dies hört sich für 
den Uneingeweihten vielleicht etwas 
kompliziert an. Deshalb hier ein 


FHEEHERECHEEHUNHTRERREN 


#### maschinenprogramm 
##2# mit monitor laden 
RRRRHRHAHRRHRSHHRNEN 


hk$=chr$( 34) :c1$=chr$( 147) 


60 input"programmname" ;p$<: zn$="70*": 


goto 1000 


20 printel$"Programm ist eingeladen 


80 end 


990 rem * laderoutine #FR#tRFTEr 
992 rem ** programmname in p$ 


99A rem #* 


zeilennummer in zn$ 


1000 char,0,0,c1$+"moN" 

1010 char,0,6,"1"+hk$+p$+hk$+",8" 

1020 char,0,9,"x"” a 

1030 char,0,11,"goto"+zn$ Beispiel- 
= E = Programm 

1040 tp=1319:poke tp, 19: fori=1t0o4:p _Monitor- 

oke tp+i, 13:next:poke239,5:end Lader 
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kleines Beispielprogramm, welches 
dies alles macht. 


DER MONITORLADER 


Falls Sie zu denen gehören, die über- 
haupt keine Maschinenroutirien 
benutzen (was sich am Ende dieses 
Artikels jedoch ändern wird), so 
überlegen Sie sich einmal, ob Sie, 
nicht auf diese Weise HIRES-Bild- 
schirme mit einer hübschen Grafik 
abspeichern und mit obiger Metho- 
de im Programm einblenden wollen. 
Abspeichern eines HIRES-Bild- 
schirms: 


MONITOR (RETURN) 
S“HIRES“,8,1800, 

4000 (RETURN) 
x (RETURN) 


DER ASSEMBLER IM TEDMON 


Vielleicht wollen Sie es doch ein- 
mal versuchen, ein kleines Maschi- 
nenprogramm mit Hilfe des Assem- 
blers einzugeben? Es ist ganz ein- 
fach. Zunächst einmal das 
Assemblerlisting: 


FLASH WEG (stoppt das Blinken) 


a0 00 1dy#$ 00 
0.08 Ida$ 0800,y 
and #$7f 
sta $0800,y 
b9 00 09 Ida $0900,y 
and #$7£ 
sta $0900,y 
lda $0200,y 
“and #$7f 
sta $0a00,y 
Ida $0b00,y 
and #$7f 
sta $0b00,y 


iny 

cpy #$00 
; bne $05c0 
.05e5 60 rts 


Das sieht auf den ersten Blick recht 
kompliziert aus, aber in wenigen 
Minuten werden Sie es verstehen. 
Zunächst einmal müssen die soge- 
nannten Mnemoniks, die Klartext- 
Assemblerbefehle, erklärt werden. 
Bei einem Maschinenprogramm 
läuft praktisch alles über die Regi- 
ster. Das A-Register ist einfach eine 
bestimmte Speicherstelle in der 
Zeropage, in der die entsprechenden 
Zahlenwerte abgelegt werden. Das 
gleiche gilt für das Y- und das X- 
Register. Am besten geben Sie mal 
das obige Assemblerprogramm ein, 
und nebenher lesen Sie die Erklä- 
rungen. Zum Eingeben eines 
Assemblerbefehls kann man an den 
Anfang der Zeile ein a oder einen 
Punkt schreiben: 

.O5be Idy #$00 


SERVICE 


Nach dem Punkt kommt zuerst die 
hexadezimale Adresse, bei der das 
Maschinenprogramm beginnen soll. 
“1dy #$00° bedeutet, daß die Hex- 
Zahl $00 in das Y-Register geladen 
werden soll. Die nächste Adresse 
muß nicht mehr geschrieben wer- 
den, sie wird automatisch vorgege- 


ben. 

.05c0 Ida $0800,y 

‘Ida $0800,y‘: Der Wert der Spei- 
cherstelle $0800+(Inhalt des Y-Re- 
gisters) wird in das A-Register ge- 
laden.(Angenommen, im Y-Regi- 
ster steht eine 5, so wird der Wert 
aus der Speicherstelle S0805 ge- 
nommen.) 

.05c3 and #$7f 

Beim AND-Befehl wird immer der 
Inhalt des A-Registers mit der Zahl 
hinter AND ‘undiert‘, das heißt, 
daß beim Ergebnis nur die Bits ‘ 
gleich eins sind, die in beiden Zah- 
len gleich eins sind. Durch die AND- 
Verknüpfung mit $7f=127 wird das 
7. Bit der Zahl im A-Register ge- 
löscht. Das Ergebnis steht nachher 
wieder im A-Register. 

‚0505 sta $0800,y .. 

Jetzt wird der Wert aus dem A-Re- 
gister in die Speicherstelle $0800+ 
(Inhalt des Y-Registers) geschrieben. 
So, die Hauptarbeit ist erledigt. Wie 
man sieht, ist der größte Teil vom 
Rest eine Wiederholung mit leich- 
ten Änderungen. Fahren Sie jetzt 
einfach hoch mit dem Cursor auf 
05c0 und ändern es in 05c8. Dann 
muß noch in der gleichen Zeile 0800 


in 0900 geändert werden. Nach 2mal 


RETURN ändern Sie wieder 0800 
in 0900 und drücken RETURN. 


SCHLUSS MIT DEM 
NERVÖSEN BLINKEN 


Wenn Sie jetzt den Disassembler- 


efe 

d O5be 05e5 (RETURN) 
eingeben, sehen Sie schon den 
größten Teil des Programms. Nun 
haben Sie ja schon etwas Erfahrung 
im Überschreiben und können den 
Trick noch 2mal anwenden, bis Sie 
bei 05e0 angelangt sind. Geben Sie 
nun noch ein: 

.05e0 iny 

‚05el cpy #800 

‚05e3 bne $05c0 

‚05e5 ıts 

INY (increase y) erhöht den Inhalt 
des Y-Registers um 1, CPY (com- 
pare y) vergleicht ihn dann mit SO0 
und BNE (Branch if not equal) 
springt bei Nichterfüllung nach 
$05c0 zurück. Ist der Inhalt des Y- 
Registers gleich Null, so wird RTS 
(return from subroutine) ausgeführt 
und das Maschinenprogramm be- 


endet. Der aufmerksame Leser wun- 
dert sich nun vielleicht, wie das Y- 
Register O werden soll, wenn immer 
1 dazugezählt wird? Der größte In- 
halt einer Speicherstelle eines 8-Bit- 
Computers ist 255 =2 hoch 8 —1. 
Wird dazu nochmals 1 gezählt, so er- 
gibt es wieder Null und in einer an- 
deren Speicherstelle wird ein Bit ge- 
setzt, welches anzeigt, daß hier ein 
Überlauf stattgefunden hat. Deshalb 
steht im Assemblerprogramm 4mal 
die gleiche Sequenz, um 1000 Byte 
zu verändern. r 


SCHNELLER ALS 
BASIC? 


Nun soll’auch endlich erklärt wer- 
den, was dieses Programm leistet. 
Sie kennen ja sicher die Funktion 
der Help-Taste. Drückt man diese 


‚nach einem Programmfehler, so wird 


die fehlerhafte Stelle gelistet und 
blinkt, was einen auf die Dauer 
ziemlich nervös machen kann und 
beim Korrigieren ablenkt. 
Mit diesem kleinen Maschinenpro- 
gramm ist damit Schluß. In den 
Speicherstellen von $0800 (dez. 
2048) bis $OBFF (dez. 3071) befin- 
det sich der Farbspeicher. Für jedes 
Zeichen auf dem Bildschirm kann 
die Farbe (16 Möglichkeiten = 
4 Bits), die Luminanz (7 Möglich- 
keiten = 3 Bits) und FLASH ON 
oder FLASH OFF (2 Möglichkeiten 
=] Bit) festgelegt werden. Da jedes 
Byte 8 Bit hat, kann alles in diesem 
einen KByte untergebracht werden. 
Hierbei wird der FLASH-Modus 
durch ein gesetztes 7. Bit angezeigt. 
Wird der Speicherinhalt daher mit 
127 undiert, so wird das Blinken ab- 
gestellt. Das Maschinenprogramm 
macht also das gleiche, wie dieses 
kleine Basic-Programm: 
10 for i= 2048 to 3071:pokei, 
en 12T):next 

ur natürlich viel schneller. Der 
Platz für das Maschinenprogramm 
wurde am Ende des Funktionstasten- 
speichers gewählt, wo normalerweise 
diese 40 Byte leicht untergebracht 
werden können. 
Um Übung zu bekommen,sollten Sie 
jetzt noch folgendes Assemblerpro- 
gramm abtippen: Dies macht das 
gleiche mit dem 7. Bit im Textspei- 


. cher, wodurch alle reversen Zeichen 


normal werden. 

Mit ORA #$80 kann man übrigens 
genau den gegenteiligen Effekt erzie- 
len. Wenn Sie die beiden Assembler- 
listings vergleichen, so werden Sie 
große Ähnlichkeiten feststellen, 

die beim Eingeben bzw. Umwandeln 


des ersten in das zweite sehr hilf- 
reich sind. 

Versuchen Sie dann mal durch Ver- 
änderungen eigene Programme zu 
schreiben. Zum Beispiel kann man 
damit einen Bildschirminhalt ver- 
schieben, indem man die AND-Be- 
fehle wegläßt und hinter die STA- 
Befehle eine andere Adresse 
schreibt. Oder man läßt die STA- 
und die AND-Befehle weg, und 
schreibt die LDA-Befehle so: 

LDA #$01. Jetzt wird der Bildschirm 
mit lauter ‘A‘ gefüllt. 


REV WEG (macht revers zu normal) 


a0 00 ldy #800 
b9 00 0c Ida $0c00,y 
297 and +#$7f 
99 00 0c sta $0c00,y 
b9 00 Od Ida $0d00,y 
29 7£ and #$7f 
99 00 04 sta $0d00,y 
ida $0e00,y 
and #67f 
sta $0e00,y 
Ida $0f00,y 
and #$7f 
sta $0f00,y 


iny 
cpy #$00 

. bne $0660 
ts 


Das Programm wird im Tedmon 
mit s“rev weg‘,8,065e,0686 
(RETURN) 

abgespeichert und von Basic aus 
mit SYS1630 gestartet: 


ASSEMBLERLISTING 
AUF DEN DRUCKER 


Will man ein Assemblerlisting aus- 
drucken, so muß man wie folgt 


vorgehen: 

open] ‚4:cmdl (RETURN) 
monitor (RETURN) 
d 065e 0686 (RETURN) 
x (RETURN) 
print#1:closel (RETURN) 


Das gleiche geht natürlich auch mit 
dem M-Befehl. 


PLATZ FÜR 
MASCHINENPROGRAMME: 


Hier ein paar Speicherbereiche, die 
beim C16/C116 für Maschinenpro- 
gramme benutzbar sind (wenn die 
angegebenen Funktionen nicht be- 
nutzt werden): 

RS232 Puffer 03f7—-0436 
Funktionstastensp. 055f—-05e6 
Sprachsynthesizerb. 065e—06ee 
Anwenderbereich 0048-0088 
Kassettenpuffer 0333-033 


SERVICE 14 


TEXTE NACH 


BELIEBEN AUF 
DEM C16! 


Die Besitzer des Plus 4 haben ja ein Text- 
verarbeitungssystem eingebaut. Für die C16er sieht es 
in dieser Beziehung ziemlich düster aus. Mit nur 12 
KByte Speicher ist es allerdings auch schwierig, 
ein Textverarbeitungssystem zu schaffen, das allen 
Ansprüchen gerecht wird. Ein gutes Programm ver- 
braucht soviel Speicher, daß nur noch Piatz für 
ungefähr eine DIN A4-Seite zum Bearbeiten übrig ist. 


Mit diesem Programm hat 

nun jeder endlich die Ge- 

legenheit, auch lange Tex- 

te zu schreiben. Vor allem 

nn Tricks ermöglichen 
ies: 


Erster Trick 
(Zeilen 430 — 490): 
Mit OPEN3,3 kann man 


den Bildschirm als Eingabe- 
kanal öffnen. Das bedeutet, 


daß damit die Zeichen im 
Bildschirmspeicher mit 
GET#3,A$ direkt (ohne 
Umrechnung) als ASCH- 
Zeichen gelesen werden 
können. ; 
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Die erste Schreib- 
maschine der Welt: 
Heute ist der Computer 
ihr Nachfolger. 


Zweiter Trick 

(Zeilen 350 — 370): 

Mit OPEN1,0 kann die 
Tastatur als Eingabekanal 
gewählt werden. Dadürch 
wird es möglich, auf dem 


Bildschirm Veränderun- 
gen vorzunehmen. 


Programmablauf: 

Nach dem Eintippen, Ab- 
speichern und Starten 

des Programms gibt man 
den Filenamen an, unter 
dem der Text abgespei- 
chert werden soll. Dann 
kann man wählen, ob 

der Text auf der Disket- 
tenstation gespeichert 
oder direkt auf dem Druk- 
ker ausgegeben werden 
soll. Gibt man Floppy + 
Drucker an, so wird der 
Text abgespeichert und 
gleichzeitig gedruckt. 
Dies ist eine Option, die 
wahrscheinlich kein ande- 
res Textprogramm liefert. 
Auf diese Weise hat man 
einen Brief geschrieben 
und gleichzeitig abgespei- 
chert. 

Als nächste Wahlmöglich- 
keit gibt es Lesen oder 
Schreiben. Zuerst wird ja 
geschrieben. Nachdem die 
2 gedrückt wurde, wird 
der Bildschirm gelöscht 
und oben links erscheint 
ein reverses Pfeil-nach- 
links-Zeichen. Jetzt kann 
Text eingegeben werden. 
Eine Zeile sollte nicht län- 
ger als 80 Zeichen sein 
und die ersten 10 — 15 
Zeilen sollten mit 
SHIFT/RETURN abge- 
schlossen werden. Dabei 
bleibt jeweils ein Pfeil- 
zeichen stehen, welches 
nachher beim Lesen vom 
Bildschirm ein Zeilenende 
anzeigt. An jeder beliebi- 
gen Stelle kann man kor- 
rigieren, indem man die 
f1-Taste drückt. Der 
Cursor blinkt und man 
kann ihn frei auf dem 
Bildschirm bewegen. 
Nachdem alle Fehler besei- 
tigt sind, drückt man 
RETURN und der Cursor 
steht wieder an der Posi- 


tion zum Weiterschreiben. 
Da er nicht blinkt, wird 
der Pfeil in einen Stern 
umgewandelt. Wurde beim 
Korrigieren ein Pfeil über- 
schrieben, so setzt man an 
das Zeilenende wieder ei- 
nen Pfeil-nach-links (nicht 
revers). Hat man fast den 
ganzen Bildschirm vollge- 
schrieben, schließt man je- 
de weitere Zeile mit 
RETURN ab. Ab jetzt 
wird immer die oberste 


Zeile ausgegeben (auf Druk- 


ker oder Floppy oder 
beidem), man hat also im- 
mer fast eine ganze Bild- 
schirmseite Text, der kor- 
rigierbar ist. Wenn Sie zu 
den Menschen zählen, die 


VIELE KORREKTUR- 
MÖGLICHKEITEN 


beim Schreiben besonders 
viel korrigieren, so daß 
häufig Zeilen eingescho- 
ben oder gelöscht werden 
müssen (was ja durch die 
ESC-Funktionen besonders 
gut geht), so sollten die 
Zeilen 350 — 370 durch: 
350 open1 ,‚O:input#1,g$: 
closel:return 

ersetzt werden. Jetzt 
springt der Cursor nach 
dem Korrigieren allerdings 
nicht mehr an die ursprüng- 
liche Position, sondern 
muß nach der Veränderung 
und vor RETURN an sei- 
nen Platz gebracht werden. 
Ist der Text fertig, muß 
noch sooft RETURN ge- 
drückt werden, bis der ge- 
samte Text nach oben 
durchgeschoben und da- 
mit gesichert ist. Jetzt 
kann das Programm mit 
der RUN/STOP-Taste ver- 
lassen werden. Dabei wer- 
den die geöffneten Files 
regulär geschlossen (Zei- 
len 610 — 630). Die Text- 
länge beim Eingeben ist 
nur durch den Speicher- 
platz des Datenträgers be- 
grenzt. Der Abspeicher- 
vorgang wird durch Ver- 
änderung der Rahmen- 
farbe angezeigt. 

Beim Lesen des gespei- 
cherten Textes geht man 
anfangs gleich vor. Beim 
Menüpunkt Lesen oder 
Schreiben gibt man 1 ein 
und der Text erscheint 


. auf dem Bildschirm. Nach 


15 Zeilen bleibt er ste- 


SERVICE | 


10 rem = endlos-textprogramm ==== 
rem (p) 07/856 commodore welt 
rem =-====-=-=-=-=2=2=2=2220=2=======5=== 
rem (c) 06/86 r. schmid-fabian 
rem c16/116 plus4 +1541/1531 
rem 
ce1$=chr$( 147) :ho$=chr$f{ 19) 
c1$=chr$( 157) :12$=c1$+c1$ 
c3$=chr$( 29) :r2$=c3$+c3$ 
c4$=chr$( 17) :d2$=c4$+c4$ 
cz$=chr$( 95) :cer$=chr$( 13) 
ev$=chr$( 27) +"v" 
f1$=chr${ 133) :key1,f1$ 
140 w$=chr${ 154) +chr${ 18) +chr$( 42) + 
chr${ 146) +chr$( 157) +chr${ 144) 
150 kK$=chr${ 154) +chr$( 18) +cz2$+chr$( 
146) +chr${ 157) +chr$( 144) :printchr$( 
14) 
160 colorO,2,4:color4,2,4:trap620 
170 printcl$:input”"programmname*";p$ 


180 printcl$r2$d2$"floppy Data ahas wel 
180 print r2$d2$"drucker ee 
200 print "r2$d2$"drucker + floppy 
ae a$<"1" or a$>"3" then 
210 


220 a=svalla$) :if a and 1 then f=1 
230 if a and 2 then d=1:open4,4:rem 
drucker 

240 printc1$r2$d2$”"seq-File lesen.. 
er De 

250 print 
en 2” 

260 geta$:if a$<"1" or a$>"2" then 
260 

270 if a$="1" then 540 

280 if f then open8,8,2,p$+"”,s,w":r 
em seq-file floppy 

290 printcl$k$; 

300 geta$:ifa$=""then30D 

310 printa$+k$; :if 

a$=cr$ then gosub A400 

320 if a$=f1$ then gosub35D 


r2$d2$"seg-File schreib 


330 
340 
rr. 
350 open1,0:s=peek( 202) :z=peek( 205) 
360 input#1,q$:poke202,s:poke205,z: 
sys55363 


goto300 
rem tastatur als eingabe zum ko 


370 closeil:printw$; :return. 

380 rem * 1 zeile vom bildsch. lese 
n 

390 rem * und auf drucker / floppy 
A400 z=peek( 205) :rem zeilenpos. curs 
or E 

410 print ho$; :n=1:sc=1:p$="" 

420 color4,2,3:rem rahmenfarbe 

430 open3,3:rem bildschirm als eing 
abe ne 
440 get#3,a$:if a$=cz$ then a$=cr$ 
450 n=n+1:if n=40 then n=1:sc=sc+1 
460 if f then print#8,a$;:rem flopp 
270 if d then print#4,a$;:rem druck 
er 

480 if a$<>cr$ then 440 

490 close3 5. 

500 printev$:if sc>1 then printev$ 
510 if z>1 then char,0D,z-sc,"”"” 

520 color4,2,4:return:rem rahmenfar 
be alt 

530 rem#* seg-file auf bildschirm * 
r# 

5SAO open8,8,2,p$+",s,r":print cl$; 
S50 trap610 

560 get#8,a$:ifa$=""then 560 

570 if st=64. then 610 

580 if a$=cr$ then printk$;:if peek 


(214)>15 then if d then gosub 350:g 
osub4A400 

590 printa$; :goto5S60 

600 rem* programmende FFHFFRttiten 
610 if d then gosub350:printk$:fori 
=1:015:gosub400:printk$:next 

620 if f then print#8:closeß:rem fl 
oppy 

630 if d then printf#4:close4A:rem dr 
ucker 


3 oe EEE. 


und die letzte Korrektur- 
möglichkeit ist angesagt. 
Nach RETURN wird der 


hen (Zeile 580, wenn die 
Druckeroption ausgewählt 


280 if fthen open8,1,l, 


Datasette zu betreiben, | 
p$:rem kassettenfile 


müssen folgende Änderun- 


zum speichern öffnen 


wurde), der Cursor blinkt gen vorgenommen wer- 


und es können Verände- noch verbliebene Text ab- den: 390 rem und auf drucker/ 
rungen vorgenommen wer- geschickt. Will man aus- 170 printel$ :input kassette* | 

den. Nach RETURN wird drucken, ohne zu korri- “Programmname“ 530 remx*kassettenfile auf 
wieder jeweils die erste gieren, so löscht man am ‚ps bildschirm#** 

Zeile auf den Drucker ge- besten vor Programmstart 200 print r2$d2$ 540 open8,1,0,p$:print 
schickt. Man hat.also viele das ‘gosub 350° in Zeile “drucker + kassette 3° c1$; 

Möglichkeiten zur Kor- 580. 240 print1Srd2$“ 585 if a$=cr$ then 

rektur. Ist aller Text ein- Veränderungen beim Kassettenfile lesen 1“ getkeyw$ 

gelesen, so blinkt der Cur- Kassettenbetrieb: 250 print$r2$d2. “Kasset- 620 if fthen close8:rem 
sor schwarz (ohne Pfeil) Um das Programm mit tenfile schreiben 2° kassette 
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STEUERN 
& REGELN 
MIT DEM 
USERPORT 


Der Userport des Plus 4 
bietet vielfältige 
Möglichkeiten, man 
muß sie nur zu nutzen 
wissen. Wir zeigen 
Ihnen hier an einigen 
kleinen Beispielen, 

wie mit ihm Steuer- 
und Regelungsaufgaben 
gelöst werden 

können. 


Eine angenehme Eigen- 
schaft der Firma Commo- 
dore ist es, bis auf die 
Ausnahmen C16/C116, 
ihre Computer mit einem 
Userport auszustatten. 
Über den Userport, auf 
deutsch Anwenderschnitt- 
stelle, können die vielfäl- 
tigsten Steuer- und Regel- 
maßnahmen durchgeführt 
werden. Die Beschaltung 
und Programmierung der 
Userporte für den VC-20 
und C64 wurden schon in 
allen Richtungen durch- 
leuchtet. Aber der User- 
por des Plus 4, um den es 
ier geht, gibt doch noch 
für viele etliche Rätsel auf. 
Da hier, im Gegensatz 
zum VC-20 bzw. C64, 
über den Plus 4 keine An- 
gaben, auch von seiten 
der Firma Commodore, 
vorliegen, muß man schon 
selbst experimentieren. 


Es wurde schon behauptet, 


der Userport wäre mit 
dem des C64 identisch, 
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aber leider stimmt dies nur 
für den mechanischen 

Teil. Doch dazu später. 
Aber Halt! Der Vorwurf 
an die Firma Commodore 


. Userport Plv us s 


Sie an der rechten Seite 
des Chip 6529B. Und zwar 
sind das die acht Datenlei- 
tungen PO — P7. Mit der 
Kombination von Daten- 
Ein- und Ausgabe an die-. 
sen Datenleitungen kön- 
nen vielfältige Steuer- und 
Kontrollaufgaben gelöst 
werden. Hierbei werden 
Datenwörter eingelesen, 
im Computer verarbeitet 
und anschließend wieder 
ausgegeben. Die genaue 
Userportbelegung finden 
Sie in Tabelle 1. 

Um nun zu erkennen, wie 
die Datenleitungen arbei- 
ten, haben wir eine kleine 
Schaltung abgedruckt, 

mit der alle möglichen Bit- 
muster an den 8 Daten- 
leitungen sichtbar ge- 
macht werden können. 
Der Aufbau der Schaltung, 
die relativ einfach gehal- 


“ten wurde, er am 


‚yon 1 hinten _ 


4 er KL MN 


ist eigentlich ungerecht. 


Commodore hat die Infor- 
mationen jedem Käufer 
des Plus 4 mitgegeben, im 
Handbuch. 

Wenn Sie nämlich die 
Seiten 253 — 256, das sind 
die Seiten mit den Schalt- 
plänen, aufschlagen, finden 
Sie alles, was Sie brauchen. 
Aber wie das mit Schalt- 
plänen so ist, die meisten 
verstehen sie nicht und so 
bleibt vieles im Dunkel 

des Computers verborgen. 
Schauen Sie sich einmal 
den Chip 7700 an. An sei- 
ner rechten Seite finden 
Sie die Leitungen Fl — F4. 
Sie enthalten außer den 
Angaben über die Pinbele- 
gung auch die Adressen in 
hexadezimaler Darstellung. 
Und zwar folgendermaßen: 
F1=$02 
F2=$FD10-$FDIF 
F3=$FD00-$FDOF 
F4=$FDDO0-$FDDF 
F5=$FD30-$FD3F 

Auch läßt sich aus dem 
Schaltplan die genaue 
Pinbelegung des Userports 
erkennen. Diese finden 


besten auf einer Loch- 
rasterplatine. Die Bauteile, 
die Sie dem Schaltplan ent- 
nehmen können, werden 
entweder mit Schaltdraht 
oder aber mit Hilfe der 
Fädeltechnik verbunden. 
Die Betriebsspannung 

für die Schaltung kann 
dem Computer an den 
Punkten I + 2 entnom- 
men werden. Nur wenn 
Sie irgendwann einmal 


größere Lasten, wie Re- 


lais und dergleichen, schal- 
ten wollen, müssen Sie 
eine externe Stromversor- 
gung anwenden. Da die 
Beschaltung etwas anders 
als bei den anderen Com- 
modore-Computern ist, 
sollten Sie sich die Bele- 
gung in Tabelle 1 genau an- 
schauen. Es geht hier 
etwas kreuz und quer zu. 
Um den Userport zu pro- 
grammieren, benötigt 

man natürlich auch eine 
Adresse (Speicherstelle), 
in die man die entspre- 
chenden Bitmuster poken 
kann, um dem Ausgabe- 
baustein mitzuteilen, wel- 


che Ausgänge er nun zu 
schalten hat. Beim Plus 4 
sind das die Adressen 
64784 — 64799. Welche 
Sie nehmen, ist eigentlich 
egal, wir haben noch kei- 
nen Unterschied gefun- 
den. Wenn Sie nun z.B. 


* Poke 64784,x eingeben, 


erscheint an den Ausgän- 
gen das entsprechende 
Bitmuster, wobei x eine 
Zahl zwischen O und 255 
sein kann. 

Warum sich beim Poken 
in eine dieser Adressen 
auch alle anderen Adres- 
sen bis 64799 gleicher- 
maßen ändern? 

Vielleicht hat einer der 
Leser eine Erklärung 

und teilt uns diese einmal 
mit. Auch warum man 
nach Anlegen von Masse 
an einer der 8 Datenleitun- 
gen diesen Zustand mit 
Peek unter der gleichen 
Adresse abfragen kann, 
konnte noch nicht ge- 
klärt werden. Wie Sie se- 
hen, Rätsel über Rätsel. 
Auch daß die Firma Com- 
modore, im Gegensatz zur 
RS 232 Schnittstelle, 
nicht Genaues mitteilt, 
wird wohl immer schleier- 
haft bleiben. 


KLEINE PROGRAMM- 
BEISPIELE 


Aber genug der Rätsel. 
Kommen wir nun zu den 
Listings, die ein paar 
Möglichkeiten aufzeigen, 
wie man den Userport 
programmiert. Listing 1 
erzeugt ein Lauflicht oder 
eine Laufschrift, wobei 
auf dem Bildschirm die 
Ausgangsbelegung in allen 
möglichen Darstellungs- 
formen angezeigt wird. 
(Von Dezimal über Hexa- 
dezimal bis Binär.) 
Listing 2 zeigt die Steue- 
rung einer Ampelanlage, 
wobei die Zeitabläufe in 
Schleifen erzeugt werden. 
Mit dem Programm aus 
Listing 3 können Sie mit 
Hilfe der Zahlentasten 

die Ausgänge ein- und 
ausschalten, wobei die 
Binärmuster auf dem Bild- 
schirm sichtbar gemacht 
werden. 

Listing 4 ist eine Erweite- 
rung des Listings Nr. 1, 
wobei Sie jetzt mit dem 


« 


10 rem lauflicht plus4 userport =p4 10 rem ampel userp. plus/4 ======p4 
20 rem (p) 03/86 commodore welt = 20 rem (p)03/86 commodore welt = 


40 rem (c) 03/86 by = 40 rem (c) 03/86 by = 
50 rem bernd welte = 50 rem bernd welte = 
60 rem - 60 rem = 
70 rem version 3.5 40z/ascii = ?0 rem version 3.5 40z/ascii = 
80 rem plus 4 .+1531/1541 = 80 rem plus/4 + 1531/1541 = 
90 rem ===>==-==-==2=>=-==-=35=2=5============ 90 rem === === 2 S52mz2 22 =Sms=em em 
100 z1$=chr$( 96) 100 printchr$( 147) :c=64784:t:1$="000 
110 forg=-1t040:qa$=qa$+z1$:nextgq 000” ; 

120 ddrb=64784 110 pokec,2:fori=1t0o1000:next:rem g 
130 dimb( 8) :goto140 elb 

140 pokeddrb, 255 | 120 pokec, 1:fori=1t02000:next:rem r 
150 printchr$( 147) ot a 

160 printtab( 6) "lauflicht Akte 4 u 130 pokec,3:fori=1to 

serport"”:print A00:next:rem rot/gelb 

170 print"led de2.. HEmcrsmen een 140 pokec,4:fori=1t0S000:next:rem g 
..bin." ruen 

180 printga$; :printchr$( 27)” E 150 goto100 Be 

190 printchr$( 147) 160 rem ampel userport ======-->=-=-=p4 
200 forx=0t0?7 170 rem 000000 bytes memory. == 
210 y=2°x 180 rem D00000 bytes programı == 


220 print:printtab( 1)x+1;:printtabf 190 rem 000000 bytes variables == 
6) ;:printusing"###” ;y; :printtab( 11) 200 rem 000000 bytes arrays = 


hex$(y); 210 rem 000000 bytes strings == 
230 d=y 220 rem 000000 bytes free (0) Ze 
240 fori=Btolstep-1 a a U 
250 ifd/2=-intf d/2)thenbf i)-D:else:b 10 rem userport plus/4 ss=s======pn4 
(i)=1 20 rem {p) 03/86 commodore welt 

260 d=int(d/2) :nexti 30 rem =-=-=-=-=-====-=22=2 === 202 So oo 
270 fori=1toß8:printtabf 17)b[li);:nex 40 rem (c) 12/85 by = 
ti:print SO rem bernd weilte = 
280 pokeddrb,y 60 rem = 
290 fori=1to100:nexti:nextx 70 rem version 3.5 40z/ascii = 
300 print:printtabf( 12)"bitte eine t 80 rem plus/4 + 1531/1541 = 
aste" 90 rem ==>=>====>===-==2=->2=22=-===2===>02 == 
310 getkeyg$ i00 rem userport plus 4 

320 goto190 110 remttrrrueesreneneee 

330 rem lauflicht userport ======p4 120 printchr$( 147) :rem#*clear scree 
340 rem 000000 bytes memory mu a 

350 rem 000000 bytes programm === 130 char1,4,4,"dieses programm demo 
360 rem 000000 bytes variables === nstriert das” 

370 rem 000000 bytes arrays === 14140 char1,4,6,"arbeiten der userpor 
380 rem 000000 bytes strings === t leitungen” 

390 rem 000000 bytes fre (0) === 150 char1,15,8,”des plus 4” 

400 rem ====-=-====2 == =2=-=2=2=2=2=2==2=2=2 === == 160 char1,0,10, "rast ar seta eat 


2 2 222222227222. 202 272027227200 
Joystick ein wenig rüh- leicht noch andere Mög- 170 c=64784:pokec,O 


ren können, um so inter- lichkeiten herausfinden. 180 char1,2,12,”die eingabe einer z 


essante Lichteffekte zu Sollten Sie zu neuen Er- x 

erzeugen. Wenn der Joy- kenntnissen kommen, ahl wird durch die 

stick in Ruhestellung ist, schreiben Sie uns. Denn 190 char1,8,14,"leds (1 bis 8) ange 
sind alle Leuchtdioden auch wir wissen nicht zeigt” 


aus. Mit dem Feuerknopf alles. Vielleicht ist auch 200 char, „1; 16,"led dez. hex..... 


können Sie alle wieder die Simulation einer re 


einschalten. 3 Centronics-Schnittstelle 

Wenn Sie nun mit den möglich. Wer weiß. 210 get i8:ie r$=""then goto 210 
Listings ein wenig experi- Den Lötkolben angeheizt 220 r=val(r$) . » 
mentieren, werden Sie viel- und frisch ans Werk. 230 char1,0,18,r$ 
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| SERVICE 


Tabelle 1 240 if r>O and r<9 then goto260 


250 print:print:printtab( 15) "falsch 
Pinbeleqgung __Userport Plus 4 


e eigabe"” :getkeya$:run 
GND 


260 b=2*r/2 
+5V (100mA max.) 


270 x=a and not b or b and not a 
280 printtab(5})x;tab( 12)hex$( x); 
290 d=x:fori=8tolstep-1 ; 
300 ifd/2=int( d/2)thenb( i)=0: RE b 
(i)=1 

310 d=sint(d/2) :nexti 

320 fori=1to08:printtab( 17)b(i); :nex 
ti 

330 poke c,x 

340 a=x 


350 for v=-1to 100:next 
360 goto210 


370 rem userport === ===, m=mmummme 


——— nn | 


ooanoaun Nom 


2 -xr-ınmV9w 


10 rem joystick lauflicht ====-===>p4 
20 rem (p) 03/856 commodore welt 
217404 8x330N 40 rem (c) 12/85 by = 
re Fe: 50 rem bernd weilte = 
> 2.1 60 rem = 
70 rem version 3.5 40z/ascii = 
80 rem plus/4 + 1531/1541 = 
90 rem ====-=-==-=-== == == === 50 
100 c=64784 
110 do 


120 ifjoy( 1) =Othenpokec,O 

130 ifjoy( 1)=ithenpokec, 1 

140 ifjoy( 1)=2thenpokec,2 

150 ifjoyf( 1) =3thenpokec,4 

160 ifjoyf( 1)=4thenpokec,B 

170 ifjoyf 13 =5thenpokec, 16 

180 ifjoyf 1)=6thenpokec, 32 

190 ifjoy( 1)=?7thenpokec, 64 

200 ifjoy( 1) =-8thenpokec, 128 

210 ifjoy( 1)=-128thenpokec, 255 

220 loop 

230 rem joystick lauflicht ======-=-= 
240 rem 000000 bytes memory == 
250 rem 000000 bytes programm == 
260 rem 000000 bytes variables == 
270 rem 000000 bytes arrays == 
280 rem 000000 bytes strings == 
290 rem 000000 bytes free (0) == 
300 rem ========-============2====== 


I. Kennwort ungenhle Afrika" > 
HUNGER Menschen in Not brauchen Hilfe: 
zuverlässig, schnell, wirksam. Die beiden kirchlichen 
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TIPS & TRICKS | 


FUNKTIONSTASTEN- 
ANDERS 
BELEGT 


Durch die Möglichkeit, die Funktionstasten auf einfache Weise mit 
Befehlen und Befehlsfolgen zu belegen, bietet der C16/116 bzw. der Plus 4 


5) 


phantastische Arbeitserleichterungen beim Programmieren. Aber auch 
vom Programm aus sind die Funktionstasten vielfach verwendbar. 
Hier sollen nun einige Tricks dargelegt werden, die die meisten Anfänger 
und so mancher Profi noch nicht kennen. 


Im Handbuch ist sehr gut erklärt, 
wie man die Funktionstasten mit 
einfachen Befehlen belegt. Aus den 
Erklärungen geht jedoch nicht her- 
vor, daß man auch ganze Folgen von 
Befehlen auf einer Taste legen kann. 
Zum Beispiel: 

key 1,“for i=43 to 46:?i,peek(i) 
next“ +c 13 

Danach werden die Inhalte der Spei- 
cherzellen 43 bis 46 ausgedruckt. 
Eine solche Befehlskette kann bis zu 
128 Zeichen lang sein. Dann aller- 
dings ist kein Platz für die anderen 
Funktionstasten mehr übrig. 


128 BYTE AUF EINER TASTE 


Natürlich kann man bei der KEY- 
Definition nicht mehr als 88 Zeichen 
(einschließlich ‘key 1,‘ auf einmal 
eingeben. Aber man hat die Möglich- 
keit, einen Teil zuvor in einer 
String-Variablen unterzubringen und 
mit ‘*+a$‘ zu verketten. 

Diesen Trick kann man auch an- 
wenden, um im Programmablauf Zei- 
len zu ändern. Hierzu ein nützliches 
Beispiel: Angenommen, man will 
mathematische Funktionen grafisch 
darstellen und hat bereits ein Pro- 
gramm, bei dem die Funktion 


Die Funktions- 
tasten ermög- 
lichen leichteres 
Programmieren 


*y=sin(x)+x‘ in Zeile 100 gezeichnet 
wird. Man will aber verschiedene 
Funktionen sehen, ohne das Pro- 
gramm anzuhalten und die Zeile zu 
ändern. 

Dazu wird mit einer INPUT-Anwei- 
sung nach der neuen Funktion 
gefragt: 

80 input“ y=“;f$:print“ Bitte fl 
druecken“:end 

Die Funktionstaste ‘fl‘ wird wie 
folgt belegt: 

key 1,“100 y=“+f$+chr$(13) 
+““goto 90°“+chr$(13) 
Dadurch wird das Programm in Zei- 
le 80 angehalten, Zeile 100 einge- 
fügt, und mit ‘GOTO 90‘ in Zeile 
90 wieder fortgesetzt. 

Übrigens wird im Speicher 
‘CHR$(13)‘ nicht als 8 Byte son- 
dern nur als 1 Byte (nämlich 13) 
abgelegt. Dies kann man sich mit 
dem Monitor leicht ansehen. Gehen 
Sie mal mit dem Befehl Monitor 

in den Tedmon (oder mit ‘moN‘ 
abgekürzt) und: geben ein: 

m 055f 05e6 

Jetzt wird Ihnen der Speicherihnhalt 
aufgezeigt und rechts sehen Sie die 
Umsetzung in ASCIH-Zeichen. Viel- 
leicht fragen Sie sich dabei, woher 
der C16 weiß, wieweit die Belegung 


der einzelnen Tasten geht? In den 
Speicherstellen 1375—1382 steht 
die Anzahl der Byte/Taste. So 
kann man zum Beispiel den bereits 
belegten Platz im Funktionstasten- 
speicher erfahren, indem man ein- 
gibt (im Direktmodus): 

a=1375:for i=0 to 7:b=b+peek 
(ati):next:printb _ 

Normal sind dies 50. Ändert man 
die Tastenbelegung jedoch mit den 
Abkürzungen (Handbuch S. 202, 
Abkürzung für HELP ist ‘heL) ab, 
so werden nur noch 26 Byte ge- 
braucht. Den Rest kann man für 
kleine Maschinenroutinen verwen- 
den. Nun bleiben wir aber noch 
kurz im Tedmon und bei der Frage, 
woher der C16 weiß, welche Befeh- 
le zu welchen Tasten gehören. In 
der ersten Zeile sehen Sie (nachdem 
Sie den ‘m‘-Befehl von vorhin ein- 
gegeben haben) 8 HEX-Zahlen. 
Addieren Sie zur ersten einmal die 
zweite und überschreiben die zwei- 
te mit 0. Nach RETURN sind die 
entsprechenden Speicherzellen 
verändert und Sie sehen, nachdem 
Sie mit ‘x‘ wieder ins Basic zurück- 
gekehrt sind und ‘KEY“ eingegeben 
haben, daß unter ‘key 1,...‘ die Be- 
fehle von keyl und key? stehen 
und key? nicht aufgelistet wird. 
Beim Addieren von Hexzahlen müs- 
sen Sie natürlich beachten, daß zum 
Beispiel 6+4 nicht 10, sondern A 
ergibt. 


ERSETZEN UND EINFÜGEN 


MIT EINER TASTE 


Manchmal muß man ein Befehlswort 


(zum Beispiel DATA) oft schreiben, 
oder mehrmals einen Befehl durch 
einen anderen ersetzen. Dazu wird 
eine Taste mit genau der Tastenfol- 
ge belegt, die man oft ausführen 
muß. Dies geht auch mit der INST- 
bzw. DEL-Taste. Hierbei schreibt 
man bei der Tastenbelegung statt 
“INST‘ ‘CHR$(148)+* und statt 
“DEL‘ ‘CHR$(20)+‘. Genauso kann 
man auch den Cursor nach ‘CHRS 
(13)‘ auf die Spalte der Folgezeile 
positionieren, an der man weiter- 
schreiben möchte. Ein Beispiel: Man 
will alle INPUT‘ durch _ ‘GETKEY‘ 
ersetzen. Da GETKEY 1 Zeichen 
länger ist, belegt man fl wie DR 
key 1,chr$(148)+““getkey“+chr$(13) 
Jetzt braucht man nur noch auf das 
I von INPUT zu fahren und fl zu 
drücken. 
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SERVICE 


Das Betriebssystem des 
Pius 4 oder C16/C116 
mit 64k-Erweiterung im 
RAM! 


Welcher Programmierer 
hat sich nicht schon ein- 
mal gewünscht, das Be- 
triebssystem oder Basic- 
ROM seines Rechners 
nach seinen Wünschen zu 
verändern? Ein anderer 
Zeichensatz, neue, erwei- 
terte oder verbesserte 
Befehle, deutsche Fehler- 
meldungen, eine eigene 
Begrüßung, andere Bild- 
schirmfarben und, und, 
und... Leider gestattet 
es bis heute noch kein 
ROM-Baustein, sich durch 
POKESs oder den Maschi- 
nensprache-Monitor verän- 
dern zu lassen. Für Be- 
sitzer eines Plus 4 oder 
eines 64K aufgerüsteten 
C16/C116 gibt es aller- 
dings eine andere Mög- 
lichkeit, im Betriebssystem 
oder Basic-Interpreter 
“rumzufuhrwerken“:-Bei 
diesen Rechnern ist der ge- 
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nn, 


samte Adreßraum des Pro- 
zessors mit RAM belegt. 
Das ROM überlagert die 
“obere Hälfte“ des RAMs 
von Adresse $8000 bis 
FFF). Was liegt also 
näher, als den Inhalt des 
ROMSs in das “daruniter- 
liegende“ RAM mit den 
gleichen Adressen zu ko- 


“ pieren, wo es dann leicht 


verändert werden kann? 
Nun, genau dies tut das 
Programm Ramos (“RAM- 
Operating-System‘“) zu- 
nächst auch — doch das 
genügt noch nicht: Wenn 
man die im RAM-Bereich 
liegenden und — nehmen 
wir an — veränderte Kopie 
des ROMs zum Laufen 
bringen will, muß man 
auf das RAM umschalten. 
Aber das Betriebssystem 
schaltet immer wieder 
auf das ROM zurück und 
landet schließlich wieder 
ganz im ROM-Bereich — 
alle Veränderungen wären 
wirkungslos!! 

Man muß also alle Stellen 
im Betriebssystem, an 


- 430 rem 


denen auf das ROM um- 
geschaltet wird, ausfindig 
machen (das ist mir nach 
mühsamer Suche gelun- 
gen!) und sie so verändern, 
daß der Rechner “im 
RAM bleibt“: Dies ge- 
schieht durch die POKEs- 
im zweiten Teil von 
Ramos. 

Am Ende des Programms 
wird auf das RAM umge- 
schaltet und ein Reset 
ausgelöst (Deshalb: Ramos 
nach dem Eintippen erst 
abspeichern!!). 

Das neue Betriebssystem 
meldet sich mit: 


RAMOS 264 BASIC 

V3.5 28661 BYTES FREI 
FERTIG. 

Nun kann man mit dem 
Monitor oder mit POKEs 
Anderungen am Betriebs- 
system vornehmen. 


Wichtige Adressen im 
ROM sind z.B.: 
32972—32995 
($80CC-$80E3): 
Einschaltmeldung 
33166-33665 


($818E-$8381): 
Basic-Schlüsselworte 
(ASCII-Code; der letzte 
Buchstabe jedes Wortes 
ist ‘geSHIFTet‘) . 
33667—-33874 
($8383-$8452): 
Adressen der Basic-Rou- 
tinen (minus 1!) ? 
33905—34379 
($8471-$864B): 
Basic-Fehlermeldungen 
(kodiert wie Basic-Worte!) 
53248—-54271 
($D000-$D3FF): 
eichensatz Groß/Grafik 
54272—-55295 
($D400-$D7FF): 
Zeichensatz Klein/Groß 
57382—-57641 
($E026-$E129): 
astaturdekodiertabellen 
(4x je 65 Bytes des ent- 
sprechenden ASCII- 
Codes für Taste allein, mit 
SHIFT, mit COMMO- 


DORE und mit CONTROL) 


57651-57666 
($E133-$E142): 
Farbtasten-Codes (ASCII) 
der 16 Farbtasten 
57667-57682 


100 rem "RAMOS — RAM-Betriebssystem 
Nur fuer PLUS4 oder 
110 rem "C16/116 mit 64k-Speicherer 


weiterung ! 


120 rem "(C) April 


haefer 


poke 54,128 : 
rem "Teil 1: 


nn nn 


"BASIC-Ende herabsetzen --—- 


"86 by Ulrich Sc 


poke 56,128 : 
ROM ins RAM kopler 


data a9,80,85,d1,a0,00,84,d0,b1 


clr 


‚d0,91,d0,c8,d0,f9,e6 
170 data d1,a5,d1,c9,fd,d0,f1,a2,48 
‚bd,00,ff,9d,00,ff,eB 
180 data d0,f7,60,78,8d,3f,ff,4c,f6 


‚Fr 


190 ad=dec( "0340") 


read he$ 


200 poke ad+a,dec(he$) : 


ys ad 


: for a=0 to 41 


nexta:;:s 


210 rem "Teil 2: Aenderungen im RAM 


220 nop=234:ram=63 


n fuer POKEs 


230 poke 51175, O0 


: rem "Konstante 


: rem "Zeichenge 


nerator im RAM (GRAPHIC AUS) 


240 poke 62282, O0 


: rem "Zeichenge 


nerator im RAM (TED-Init.-Tab.) 
250 poke 52870,nop : rem "” 


260 poke 52871,nop 


: rem ”NOP’s sta 


mem u rn 


- mn m — mm mm m nt ee En nn 


“SERVICE 


ANALOG-- 
UHR 


($E143-$E152): 
Farbcodetabelle: Voreinstel- 
lungen für jede Farb-Taste 
6226462289 
($F338-$F351): 
Defaultwerte für Bild- 

a (Register 
“Ramos“ ist Reset-fest, 
d.h. auch nach einem 
Reset noch aktiv. Wünscht 
man diese Eigenschaft 
nicht, so löscht man in 
Ramos die Zeile 290. 
Wenn man im Betriebs- 
system noch bis zu 2K- 
Byte für eigene Program- 


HIN- UND HER- 
SCHALTEN MÖGLICH 


me haben möchte und 
man auf den im RAM 
selbstdefinierbaren Zei- 
chengenerator verzichten 
kann, so kann man durch 
Löschen der Zeilen 230 
bis 270 das Betriebssy- 
stem dazu zwingen, den 
“alten““ Zeichengenera- 
tor im ROM zu benutzen. 
Das RAM von 53248 bis 


tt ’ORA 2042” 
270 poke 52872,nop 
280 poke 53179,ram 


55295 ($D000 bis $D7FF) 

steht dann zur freien 

Verfügung! 

Wer sich intensiv mit dem 

ROM seines Rechners be- 

fassen möchte, dem sei 

das ROM-Listing zum 

Plus 4 von Commodore 

(Sachbuchreihe Band 6, 
ISBN 3-89133-006-5) 


BRENNE GERNE 
EPROMS 


empfohlen, das ebenso 
auch für den C16/C116 
gilt, da Basic und Betriebs- 
system der beiden Rech- 
ner identisch sind. 

Ramos eignet sich auch 
ideal zum Austesten neu- 
er oder veränderter Be- 
triebssysteme, die auf 
Eproms gebrannt wer- 
den sollen (zu diesem 
Zweck habe ich es ur- 
sprünglich auch entwik- 
kelt). Ich bin gerne bereit, 
gegen einen Unkostenbei- 
trag Eproms (2x27128 

für Basic- und Betriebs- 
system-ROM) zu brennen. 


: rem 
: rem "RAM-Umsch 


altung bei Bankswitch-Routine 


290 poke 65527,ram 
halten nach ReSet 
300 poke 33074,ram 
utine 
310 poke 33102,ram 
RAM holen 
320 poke 62315,76 
330 poke 62316, 137 
statt AAN-Test 
340 poke 62317,243 
350 poke 1288, O0 
RAM-Test loeschen 
360 rem "Teil 2a: 
werden) 
370 t$="ramos 264” 
(t$) 


: rem "RAN-Einsc 
: rem "CHRGET-Ro 
: rem "Byte aus 
: rem " 

: rem "JMP 62345 
: rem " 

: rem "Flag fuer 


(kann weggelassen 


: for a=1 to len 


380 poke 32974+a,asc(mid$(t$,a,1)) 


ı next a 


390 poke 33023,asc( "i") 


400 u ="fertig"” : 
) 


for Be to 1len{(t$ 


410 Kake 3441Bta, asclmiastts, a,1)) 


ı next a 
420 rem 
und ReSet 
430 sys ad+35 
440 end 


"Teil 3: Auf RAM umschalten 


_.- ——— , ., —, m... |. |. |. |. [| . 


Dieses Programm demon- 
striert eindrucksvoll 

die vielfältigen Möglichkei- 
ten, mit Basic 3.5 schön 
(„strukturierte“ Program- 
mierung) und schnell 
(Grafik-Befehle) zu pro- 
grammieren. 

Eine Pascal-ähnliche, über-. 
sichtliche Struktur wird 
durch die DO...LOOP- 
Schleife und das Einrük- 
ken der Befehlszeilen er- 
reicht (der Trick: Statt 
des ersten Leerzeichens 
hinter der Zeilennummer 
ein Grafikzeichen mit 
SHIFT- oder Commodore- 
Taste eingeben, danach 
soviele Leerzeichen wie 
gewünscht. Beim Listen 


verschwindet das Grafik- 


zeichen, die Leerzeichen 
bleiben!). Leider lassen 
sich die GOSUBs nicht 
durch mit Namen gekenn- 
zeichnete Prozeduren er- 
setzen, wie das z.B. in 
Simon’s Basic möglich ist. 
Zeitraubende Winkelbe- 
rechnungen in Basic (für. 
die Zeiger der Uhr) wer- 
den durch die Option, 

bei DRAW und LOCATE 
auch Winkel und Längen 
anzugeben, überflüssig. 
Daher ist auch die Darstel- 
lung eines Sekundenzei- 
gers möglich. 

Die Analoguhr läuft unver- 
ändert auf dem Plus 4, 
dem C16 und dem C116. 


Ulrich Schäfer 


100 rem analoguhr c16/116/plus4 
4110 rem (c) by ulrich schaefer 


:w(2)=6 


input "uhrzeit (hhmmss) ";ti$ 


120 dim 1(2) ,w(2),z({5) 

130 1(0)=60:1( 1)=84:1(2)=72 
140 w( 0) =30:w( 1) =6 

150 xm=160: ym=100:r=100 

160 graphic 0,1 

170 

180 eraphic 1,1 

190 circle 


1,xm, ym, 100, 100,0,360,0,1 


psint 1,0,0:paint 1,319, 199 


if z(a)=z(a+ti) then 360 


200 

210 for a=30 to 360 step 30 
220 draw O,xm,ym to 95;a 
230 draw 1 to 5;a 

240 next 

250 i=-0:gosub 420 

260 do 

270 i=0 

280 for a=0 to 2 

290 m=-1:gosub 480 

300 next 

310 i=3:gosub 420 

320 for a=0 to 2 

330 

340 m=-0:gosub 480 

350 z(a)=z(a+i) 

360 next 

370 get a$ 

380 loop while a$="" 

390 graphic 0,1 


25 


400 end 
410 rem prozedur zeiten holen 


420 z(i)=vallleft$(ti$,2)) 

Aa30 if z(i) > 11 then z(i)=z(i) 
—-12 

440 z(i+1)=vallmid$( ti$,3,2)) 
450 z(i+2)=vallright$(lti$,2)) 
460 return 

470 rem prozedur zeiger zeichnen 
480 draw m,xm,ym to l(a);z(a)*w 
(a) 

490 return 


DEUTSCHE 
UMLAUTE 
FÜR DIE 
DREI C! 


Ende legt (dadurch geht 
ca. 1 KByte Basic-Spei- 
cher verloren). 

Der Zeichengenerator 
bleibt — im Gegensatz zu 
vielen anderen Program- 
men dieser Art — auch bei 
der Rückkehr in den 


Mit diesem Programm 
kann man dem Plus 4, 
dem C 16 und dem C116 . 
(mit und ohne 16- oder 
64-K-Erweiterung) die 
deutschen Umlaute bei- 
bringen. Dabei bietet das 
Programm folgende Vor- 


teile: Ready-Modus und nach 
‚Fehlermeldungen aktiv!! 

AUTOMATISCH Der Zeichengenerator 

ANGEPASST kann beliebig nach eigenen 


Wünschen verändert wer- 
den. Die Basicadresse des 
Zeichengenerators wird 
“ vom Programm ausge- 
geben (“NEUE MATRIX 
AB ADRESSE: ...‘“). 
Ulrich Schäfer 


Es paßt sich automatisch 
an die verschiedenen 
Speicherbaustufen an, 
indem es den neudefi- 
nierten Zeichensatz immer 
direkt unter das Basic- 


LL——————— 
“ 


Deutsche Tastatur 
100 rem deutscher zeichensatz fuer 

plus4/c16/c116 mit und 

110 rem ohne ram-erweiterung (passt 
sich automatisch an !) 

120 rem (c) 20.6.1986 by ulrich sch 


130 a=peek(56) -3:rem basic-ende her 
absetzen 

140 if a/4 <> int(a/4) then a=sa-Il:g 
oto 140 
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150 poke 56,a:poke 54,a:poke 55,0:p 

oke 53,0:clr 

160 a=-256*peek( 56) :print "neue matr 

ix ab adresse";a 

170 poke 1177,62:rem fuer peek auf 

rom schalten 

180 for i=-0 to 1023:poke a+i,peek(5 

4272+i1) :next > 

190 rem ready.-routine aendern ---- 

200 for i=0 to 65:poke 1633+i,peekf 

34438+i) :next 

210 for i=O to 37:poke 1699+i1,peek( 

51145+i1) :next 

220 poke 1177,63:rem peek wieder au 

s ram 

230 poke 1630,76:poke 1631,3:poke 4 

632,135:rem jmp 34563 

240 poke 1635,250:rem bmi 1630 

250 poke 1728,41:poke 1729,251:rem 

and 251 

260 poke 1737,76:poke 1738,207:poke 
1739, 134:rem jmp 34511 

270 poke 768,97:poke 769,6:rem neue 

r vektor auf 1633 

280 rem ram-zeichengenerator aktivi 

eren mean 

290 poke 65298 ,peek( 65298) and251:re 

m matrix im ram 

300 poke 65299, peek( 65299) and3) or 

a/256:rem matrixadresse 

310 poke 740,3/256:rem matrixadress 

e fuer chäar-befehl 


. 320 poke 2042,0 


330 printchr$(B);:rem zeichensatzum 
schaltung verhindern 

340 rem deutsche zeichen definieren 
350 for i=1 to 7:read c,k:key k,chr 
$lc+64) 

360 for x=0 to ?:read b:poke a+8d*c+ 
x,b:next 

370 next i 

380 data 127,8,0,56, 108, 120,108, 108 
‚120,96:rem "ss 

390 data 102,1,0,102,60,6,62,102,62 
‚oO :rem "ae 

400 data 104,2,0, 102,60, 102, 102,102 


‚60,0 :rem "oe 
410 data 108,3,0,102,0,102,102,102, 
62,0 :rem "ue 


420 data 123,4,102,24,60, 102, 126,10 
2,102,0:rem "Aa 

430 data 124,5,102,60, 102,102, 102,1 
02,60,0:rem "De 

440 data 126,6, 102,0,102, 102, 102,10 
2,60,0 :rem “Ue Dr 

450 end 


nn m nn mm nn m nn 


* 


SERVICE 


Kommentiertes Assemblerlisting zu 'RAMOS' 


0340 
0342 
0344 
0346 
0348 
034A 
034C 
034D 
034F 
0351 
0353 
0355 
0357 
0359 


A9 80 
85 DI 


LDA 
STA 


#$80 
$D1 
#$00 
$D0 
($00),Y 
($D0O),Y 


$0348 
$01 
$D1, 
#$FD 
$0348 
#$48 
$FFOO,X 
$FFOO,X 


$0359 


mm nn nn nn nn nn mm ae nn nn 


Kommentiertes Assembler-Listing der 'ROMPEEK'-Funktion 


8D 3F FF 
ac F6 FF 


SEI 
STA 
JMP 


$FF3F 
$FFF6 


(analog zur PEEK-Funktion 


065E 
0660 
0661 
0663 
0664 
0667 
0669 
0668 
066C 
066D 
066F 
0670 
0672 


rer sr ee a ea 


AS 15 
a5 14 
20 E4 90 
AO 00 
Bi 14 
85 14 


85 15 
46 81 9A 


LDA 


STA 
JMP 


$15 

$14 
$IDE4 
#$00 
($14),Y 


$14 


$15 
$9A81 


PRompeek 


100 
110 
120 


; Startadresse high 
Zähler high 
; Startadresse low 


.. 


; Zähler low 


; indirekt aus ROM lesen 

; in RAM abspeichern 

; Zähler low erhöhen 

; noch nicht wieder =0 ? 

; Zähler high erhöhen 

; zum Vergleichen laden 

; schon $FD00 (RAM-Ende) ? 
; Schleife, solange # $FD 
; X als Indexzähler LOW 

; aus ROM lesen bis $FFFF 
; in RAM abspeichern 
Indexzähler erhöhen 

; Schleife, solange #0 
zurück ins BASIC-Prg. 


.. 


Interrupt verhindern 
; auf RAM .umschalten 
; ReSet-Routine 


im ROM ab $9DFA) 


; Inhalt von 

; $14/$15 auf 

den Stack 

retten 

; 16-Bit-Wert holen 
Index 0 

; aus ROM lesen 

; in Y übergeben 

; alten Inhalt 

von $14/$15 

; wiederher- 
stellen 

en nach FAC wandeln 


data 85,15,48,35,14,48,20,e4 
data 9d,30,00,b6b1,14,38,68,85 
data 14,68,85,15,4c,81,93,00 


a=dec({ "065e”) 
for i-0 to 23 


read 
poke 
next 
-poke 
poke 
poke 


rem " 


rem "(C) 


d$ 


a+i,dec{ d$) 


ı 


1280,76 
1281,aand255 
1282,0/256 

rem " peek(x) liest aus RAM 
usr(x) liest aus ROM 


by Ulrich Schaefer 


Assembler- und 


ns 


ROnNl- 
PEEK: 
ZUGRIFF 
AUF’s 


ROM 


Oft benötigt man in Basic- 
Programmen den Zugriff 
auf das Betriebssystem- 
oder Basic-ROM, um Ta- 
bellen, Befehlslisten oder 
den Zeichengenerator 
nutzen zu können. Die 
PEEK-Funktion greift im- 
mer — auch beim C16 

und C116 mit 16K RAM — 
auf das RAM zu. Eine 


kleine “Befehlserweiterung“ 


stellt zusätzlich zur RAM- 
PEEK-Funktion noch die 
ROM-PEEK-Funktion zur 
Verfügung: Der Einfach- 
heit halber habe ich die 
User(Benutzer)-Funktion, 
eine Basic-Funktion, die 
man selbst programmieren 
kann, verwendet. Man 


braucht dazu lediglich den . 


User-Vektor (Adresse 
1281/2) auf die eigene 
Maschinenroutine umzu- 
leiten. Meine ROM-PEEK- 
Funktion ist analog zur 
RAM-PEEK-Funktion im 
Basic-ROM (ab Adresse 
SIDFA) aufgebaut. Statt 
PEEK(X) ruft man die 
neue Funktion mit USR(X) 
auf. Der Zugriff erfolgt 
bei Adressen größergleich 
32768 nun auf das ROM; 
bei Adressen kleiner als 
32768 wird wie bei PEEK 
aus dem RAM gelesen. 
Eine weitere Möglichkeit, 
auf das ROM: zuzugreifen, 
besteht darin, vor dem 
Zugriff mit PEEK den 
Befehl POKE 1177,62 zu 
geben. Alle folgenden 
PEEK-Zugriffe beziehen 
sich dann auf das ROM. 
Allerdings bewirkt dieser 
POKE-Befehl, daß auch 
andere Tätigkeiten des 
Basic-Interpreters sich auf 
das ROM beziehen. Des- 
halb sollte man möglichst 
bald nach dem Zugriff 
mit PEEK den Befehl 
POKE 1177,63 folgen 
lassen, damit der ursprüng- 
liche Zustand wieder 
hergestellt wird. 

Ulrich Schäfer 
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Wie Sie sicher bei der Lek- 
türe des Handbuches fest- 
gestellt haben, kann man 
die meisten Basic-Befehle 
mit 2 — 3 Zeichen abkür- 


zen (Handbuch Seite 202). 


Die Verwendung dieser 
Abkürzungen spart nicht 
nur sehr viel Zeit, son- 
dern reduziert die Tipp- 
fehler beim Programm- 
npen gewaltig. Das 
fehlerfreie Eingeben der 
Befehlsworte ist vor allem 
für die Besitzer des 
“Gummicomputers“ C116 
ein Problem, da man nie 
genau weiß, ob die Taste 
nun angesprochen hat 
oder nicht. Es ist ein- 
leuchtend, daß die Gefahr 
des Vertippens reduziert 
wird, wenn man von 5 
oder 6 Zeichen nur 2 
eintippen muß. Dieses 
Programm hilft beim Ein- 
üben dieser Abkürzun- 
gen. Die Zeit zum Üben 
holt man leicht wieder 
beim weiteren Program- 
mieren herein. 
Außerdem macht es Spaß, 
denn es ist gleichzeitig 
ein Reaktions- und Kon- 
zentrationsspiel. Der Pro- 
grammaufbau ist relativ 
einfach und gut zu ver- 
stehen. Etwas Grundle- 
gendes zu den sogenann- 
ten Tokens (Basic-Befeh- 
le) sei noch gesagt. Im 
Speicher stehen die Be- 
fehle als Zahlen größer 
127. Findet der Basic-In- 
terpreter eine solche Zahl, 
so sieht er in einer Liste 
nach, welchem Befehl 

sie entspricht und handelt 
entsprechend. Wie aber 
erkennt er die Abkürzun- 
gen? Wird ein Befehl ab- 
gekürzt eingegeben, so ist 
das letzte Zeichen geshif- 
tet, zum Beispiel 
“INPUT#“ kann “iN“ 
geschrieben werden. 
Durch das geshiftete Zei- 
chen weiß der Interpreter, 
daß der Befehl hier zu 
Ende ist und sieht in sei- 
ner Liste im ROM nach, 
wo er ein Wort findet, 
das mit “IN“ anfängt. 
Das erste mit “IN...“ 
nimmt er dann. Daher 
gibt es auch keine Abkür- 
zung für INPUT, da IN- 
PUT hinter INPUT# 
steht. 
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| MIEREN. 
MIT 
STENO- 
BASIC! 


Programmablauf: 

Zuerst werden alle Be- 
fehlsworte mit ihrer 
Codezahl (mit der sie im 
Speicher stehen) und ihrer 
Abkürzung aufgelistet. 
Danach fragt das Pro- 
gramm nach der Anzahl 
der Befehle, welche abge- 


fragt werden sollen. An- 
schließend wird nach den 
Abkürzungen der zufällig 
bestimmten Befehlsworte 
gefragt. 

Hierbei kommt es auf die 
Zeit zur Beantwortung an, 
da diese gemessen wird. 
Wurden alle abgefragt, 


erhält man eine Fehler- 
statistik mit Korrektur 
und verbrauchter Zeit. 

Folgende Abkürzungen 


- stehen nicht im Hand- 


buch: 

Befehl Token Abkürzung 
ELSE 213 ar 
EXIT 237 exlI 
HEIP 234 heLl 
STEP 169 stE 
USING 251 usl 
GETKEY hat keine rich- 


tige Abkürzung, da es ein 
zusammengesetztes Wort 
aus GET und KEY ist. 
Daher kann man es auch 
GET KEY schreiben und 
gEKE abkürzen. 

Bevor Sie nun anfangen, 
das Programm einzutip- 
pen, sollten Sie Ihr Augen- 
merk auf die Zeile 650 
lenken. Sie hat mit dem 
eigentlichen Programm 
nichts zu tun, sehr wohl 
aber damit, wie man Zeit- 
verlust und Fehler ver- 
meiden kann. 

Fangen Sie daher beim 
Eintippen mit diesen 

3 Zeilen an: 

I.data Ben 

2 key 1,“run650°+chr$ 
(13)+“list1““+chr$(13) 
+“]ist650°+chr$(13) 

650 a= 0:fori=0toldstep 
2:poke4103+i,12 8+i/2 
+a/2:poke4103+i+1 44: 
next:poke4122,58 


In Zeile 1 stehen nach 
dem Leerzeichen hinter 
DATA 20 Doppelpunkte. 
Wenn Sie dieses Mini- 
programm starten, wird 
die Funktionstaste ““f1“ 
neu belegt und in Zeile 
650 werden die Doppel- 
punkte durch die Token 
ersetzt. Drücken Sie nun 
fl, so werden Zeile 1 und 
650 gelistet. In 1 stehen 
bereits die Befehlsworte 
von Zeile 420. Nun muß 
die Zeile 1 zur Zeile 20 
gemacht werden, in Zeile 
650 a=0 zu a=20 und fl 
gedrückt werden. Jetzt 
stehen die nächsten 10 
Befehle in Zeile 1. Diese 
wird jetzt durch Ändern 
der Zeilennummer zu 
Zeile 40 und in 650 wird 
a=20 zu a=40 und so wei- 
ter und so fort... 

Dies Verfahren spart 
Zeit und vermeidet Feh- 


Stemnmobssic-TITrsiner 3 7 = 


10 rem stenobasic-trainer ===116/16 
20 rem {p) 7786 commodore welt = 


40 rem (c) 7/86 cw-team 


60 rem c116/c16/plus 4 (c64/vc20) = 


80 c1$=chr${ 147) :Fa$= chr$( 130) 

90 printchr$( 14) 

100 tm=125:rem. anzahl der token (c6 
A/vc20 tm=75) 

110 dima$( tm) ,‚b$( tm) ‚a%C tm) :printcl 
$ 

120 fori=DO to tm:reada$(i) :next 

130 fori=B8 to tm:read x:s=s+x 

140 if x=1thenb$( i)=a$(li):goto180 
150 b$[l i)=-1left$[la$li) ,x-1) +chr$(lasc 
(mid$( a$li) ,x,1))or128) 

160 ifx=len(a$(i))thenb$( i)=a$li) 
170 ifx=-9thenb$l i)="?". 

180 printi+128,3$(i),b$(i) 

190 next:if s<>293 Ehen print"Fehle 
r in den DATA-Zeilen"”:end:rem c64/v 

c20:s<>168 

200 rem ## abfragezyklus *H#r#Ht#% 
210 printcl$:input”wieviel Token so 
llen abgefragt werden ";tk 

220 for i=1 to tk 

230 g=int({rnd(ti)*tm) :if a%lg)<>O t 

hen 230 

240 printcl$"Wie ist die Abkuerzung 
von: ";a$(g) 

250 z=ti:input ab$:zs=zs+ti-z:rem r 

eaktionszeit 

260 if ab$=b$(q) then print"richtig 
11":3%[qg)=1:goto280 

270 print"Falsch, sie heisst: 

$[g) :a%lgq)=2 

280 getkeyw$:next 

290 printcl$”"Auswertung"” 

300 rem#* auswertung KHERSHUHREIERUE 

310 for i=0 to tm 

320 if a%(i)=1 then r>=r+1 

330 if a%li)=2 then f=f+1:print"Fal 
sch war:”,a$(i)fa$,b$(i) 

340 next:for t=1t06000:next 

350 printc1$”"Sie haben ":print 

360 print"Richtig geraten: "”,r 

370 print"Falsch geraten: "”,f 

380 print: print” verbrauchte Zeit: ee 

int{ zs/60)” sec" 

390 input”Noch einmal? 3/n";w$:if w 

$="j" then run 

400 end 

410 rem* datas token ###% 

420 data end,for,next,data,input#,i 

nput,dim,read,let,goto 


"Fa$b 


430 data run,if,restore,gosub,retur 

n,rem,stop,on,wait,load 

440 data save,verify,def,poke,print 

#,print,cont,list,cir,cmd 

450 data sys,open,close,get,new,tab 

{‚to,fn,spc( ‚then 

A60 data not,step,+t,-,*,/, 

> 

470 data =,<,sgn,int,abs,usr,fre,po 

s,sqr,rnd 

480 data log,exp,cos,sin,tan,atn,pe 

ek,len,str$,val 

490 data ase,chr$,left$,right$,mid$ 
‚„go,rgr,rcelr,rlum, joy 

500 data rdot,dec,hex$,err$,instr,e 

lse,resume,trap,tron,troff 

510 data sound, vol,auto,pudef,graph 

ic,paint,char,box,circle,gshape 

520 data sshape,draw,locate,color,s 

enclr,scale,help,do,loop,exit 

530 data directory,dsave,dload,head 

er,scratch,collect,copy,rename,back 

up,delete 

540 data renumber,key,monitor,using 
‚until,while 

550 rem #* datas zeichenanzahl *##* 

S60 data2,2,2,2,2,5,2,2,2,2,2,2,3,3 
3 

570 data3,2,2,2,2,2,2,2,2,2,9,2,2,2 
2 

7 

580 data2,2,3,2,3,2,2,2,2,2,2,3,1,1 
1 

’ 

590 data1,1,2,2,1,1,1,2,3,2,2,2,3,2 
2 

’ 

600 data3,2,3,2,3,2,2,2,3,2,2,2,3,2 
2 

> 

610 data2,2,2,2,2,2,3,2,2,3,2,4,2,3 
4 

> 

620 data2,2,2,2,2,2,3,2,2,2,2,2,3,3 
2 

> 

630 data3,3,2,3,3,3,2,2,3,3,4,3,3,2 
3 

> 

640 data4,2,2,3,2,2 

650 a= 0:fori=0to18step2:poke4103+i 
‚128+1/2+3/2:poke4103+i+1,44:next 
660 rem stenobasictrainer====16/116 
670 rem 2406 bytes program = 
6B0 rem === === === rm nn nn 


“,and,or, 


gramms eingeben. 
eg Schluß noch ein 
Tip: Wenn Ihnen mitten 
beim Schreiben eines 
Befehlswortes einfällt, 
daß Sie es eigentlich mit 
2 Buchstaben hätten ab- 
kürzen können, so shiften 
Sie halt den 3ten. Das 
wird auch verstanden. 


ler. Die Erhöhung um 
20 geht solange, bis Sie 
einen ILLEGAL 
QUANTITY ERROR 
erhalten. Am Schluß die 
Zeilen 1 und 650 1ö- 
schen und mit RENUM- 
BER 420,10 die Zeilen- 
nummer richtigstellen 
und den Rest des Pro- 
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LISTING | 


SUPER: 


TRAINER 


Nach dem Start des Programmes erscheint zunächst 
ein kleiner Vorspann und dann ein Menü. Die 
Menüfunktionen sind auf die Funktionstasten des 
C-16 gelegt. Die Anzahl der Vokabeln muß mini- 
mal 4 Stück betragen und das Maximum ist bei 

120 Stück. 

Die Menüfunktionen im Einzelnen: 


F1 — EINGABE 


Wie es der Name schon sagt, handelt es sich hier- 
bei um den Eingabebefehl des Programmes. Der 
Computer fragt Sie folgendes ab: 

1. Um welche Sprache handelt es sich? 

2. Wieviel Vokabeln wollen Sie eingeben? 

Wenn Sie alles korrekt eingegeben haben, geht der 
Computer in den Eingabemodus. Abwechselnd 
fragt er Sie die deutsche und die fremdsprachige 
Bedeutung der Wörter ab. Dieser Vorgang wieder- 
holt sich so oft, bis die bestimmte Anzahl voll ist. 


F2 — LERNEN 


Mit dieser Funktion können Sie Ihre vorher einge- 
gebenen oder geladenen Vokabeln lernen. 

Der Computer fragt Sie nacheinander in zwei 
verschiedenen Testarten ab. 


Test Nr. 1: 

Der Computer fragt Sie, welche Vokabeln abge- 
fragt werd£n sollen: 

1. Fremdsprache (F?2) 

2. Deutsch (Fl) : 

Wenn Sie auch dies beendet häben, müssen Sie die 
Anzahl, bzw. wieviel Durchgänge Sie machen wollen, 
eingeben. Nun können Sie anfangen zu lernen. Der 
Computer zeigt Ihnen ein fremdsprachiges bzw. 
deutsches Wort an, und Sie müssen. die entsprechen- 
de Bedeutung eintippen. “TED“ — der elektroni- 
sche Schiedsrichter, bewertet dann Ihre Eingabe. 
Dieser Vorgang wiederholt sich, bis die eingegebe- 
ne Anzahl erreicht ist. 


Test Nr. 2: 

Zunächst erhalten Sie (wie bei Test 1) eine kleine 
Beschreibung des Lehrvorganges und dann geben 
Sie wieder die Anzahl der Durchgänge ein. 

Der Computer schreibt zwei fremdsprachige Wör- 
ter und ein deutsches Wort auf den Bildschirm. 
Die fremdsprachigen Wörter sind mit Fl und F2 
gekennzeichnet. 

Welches Wort gehört zu dem deutschen Wort? — 
geben Sie Fl oder F2 ein. 

Am Ende erscheint Ihre Testnote und die Anzahl 
der falschen Vokabeln in Prozent. 


F3 — MEDIUM 


Mit Medium können Sie: 
1. Bei leerem Speicher vorher abgespeicherte Vo- 
kabeln laden. 
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VOKABEL- 


2. Vorher mit Fl eingegebene Vokabeln 


abspeichern. 


Wählen Sie nun Fl oder F2... 


1. Load 


Der Computer fragt Sie nach dem Filenamen _. 
(z.B. Lektionsname) und der Anzahl der Vokabeln, 
um entsprechend Speicherplatz zu reservieren. 
Haben Sie noch alte Vokabeln im Speicher, so wer- 
den Sie gefragt, ob Sie diese löschen wollen (nur 
so kann der Computer laden). 


2. Save 


Um die gewünschten Vokabeln abzuspeichern, 
benötigt der Computer einen Filenamen (z.B. Lek- 
tionsname). Wichtig: Notieren Sie sich den File- 
namen und die Anzahl der Vokabeln (für späteres 


Laden). 


EINSTELL- 
HILFE 


Die Justierung des Wie- 
dergabe-Tonkopfes ihrer 
Datasette ist sehr wich- 
tig, denn es besteht ein 
Zusammenhang zwischen 
der Tonkopfeinstellung 
und der Qualität der wie- 
dergegebenen Signale des 
Gerätes. Die meisten feh- 
lerhaften Bänder mit 
Computerprogrammen, 

die in den Geschäften zu- 
rückgegeben werden, sind 
nicht auf schlecht herge- 
stellte Bänder oder Pro- 
grammaufzeichnungen zu- 
rückzuführen, in den mei- 
sten Fällen ist ein 
schlecht eingestellter 
Tonkopf schuld. Vor al- 
lem nach der Invasion der 
C-16-Computer als Set 
trat dieser Effekt bei den 
mitgelieferten Datasetten 
sehr häufig auf. Ein Ein- 
stellset von Robcom soll 
hier nun Abhilfe schaf- 


fen. Es besteht aus zwei 
Kassetten, von denen die 
eine das Programm mit 
dem Prüfton auf der 
Rückseite enthält und die 
andere mit einem Reini- 
gungsband gefüllt ist. 
Außer den zwei Kasset- 
ten liegen dem Set noch 
ein Schraubendreher und 
eine genaue viersprachi- 
ge Gebrauchsanleitung 
bei. Auch Deutsch ist 
hier vertreten. Nach dem 
Laden und Starten des 
Programmes wird mit 
dem auf der Rückseite 
befindlichen Prüfton der 
Tonkopf der Datasette 
eingestellt. Dies geht 
recht einfach. Man muß 
nur darauf achten, daß 
die waagerechten Strei- 
fen auf dem Bildschirm 
so schmal wie möglich 
bleiben. Andernfalls muß 
der Tonkopf mit dem, 
beiliegenden Schrauben- 
dreher vorsichtig einge- 
stellt werden. 


UNSER 
2 TELEFONSERVICE & 


Alle Experten der CBM REVUE/COMMODO- 
RE-WELT stehen unseren Lesern jeden Mitt- 


woch zwischen 16.30 und 19.30 Uhr zur 
Beantwortung aller Fragen unter der Telefon- 
nummer 089/1298013 zur Verfügung. 
Ebenso der Abo- und Kassettenservice. Ein- 
fach anrufen! 089/1298014! 
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10 goto 110 
20 dim e$(a) :dim d$( a) 
30 return 


40 rem supertest =========16/116/p4 
50 rem (p) commodore welt = 
60 rem ======-====-=2=-===2=2==er2ounenn 
70 rem 


{c) by torsten stenzel = 
version 3.5 40z/ascii = 
c 16/116/p4 + cass/disk = 


=== = eumcmmmmseezmemnoc.—-. 


80 rem 
90 rem 
100 rem 


rem: bitte beachten: Großbuchstaben 
im Listing stellen die betreffende 
n Grafikzeichen auf diesen Tasten d 

ar !! 

110 graphic 0,1 

120 color 4,2,7 

130 g=-0 

140 a$="RRRARARARARRAAARAARRARARAAARRAAR 

ARARARRARRAR” 

150 gosub 2120:g=g+1 


160 a$="----- supertest der vokabelt 
rainer----- ":gosub 2120:g=g+1 
170 a$="-------- 1986 .by torsten ste 
nzel-—---=- ":gosub 2120:g=g+1 
180 age" een un ist geladen----- 


er eco ":gosub 2120:g=g+1 

190 a$="EEEEEEEEEEEEEEEEEEEEEEEEEEE 
EEEEEEEEEEE" 

200 vol 7? 

210 gosub 2120:for i=1 to 4 
220 for p=1 to 4 

230 vol s:sound 1,596,9:sound 1,685 
‚9:sound 1,739,9:s=s-2 

240 vol 2 :sound 

1,596,2:sound 1,685,3:sound 1,739,3 
250 next p 

260 s=4 

270 for p=1 to 4 

280 sound 1,596,9:sound 1,704,9:sou 
nd 1,770,9:vol s:s=s-1 

290 sound 1,596,3:sound 1,704,3:sou 
nd 3,770, 1 

300 next p:next i:for a=1 to 900:ne 
xt a 


:5=7 


celr 
sencelr:r=0 
char 1,17,20,"s upertest 


char 1,17,22,"Cc) torsten stenz 


g-0:3$="menue":gosub 2120:a$="- 
— gie eos sanken ":gosub 2120 

a$="eingabef( f1)":gosub 2120 
a$="lernen( f2)":gosub 2120 
a$="mediumf{ f3)":gosub 2120 
g=-g+1:a$="press fi,f2 or f3”:go 
2120 


400 
4130 
420 
430 
440 
450 
460 
470 


key 1,"Q”":key 2,"W":key 3,"E" 
get 3a$ 

if a$=-"Q" 
if ag="w"” 
if ag="E" 
goto 410 
senclr:g=O 
if a>3 then goto 2750 


then 460 
then 720 
then 2240 


480 char 1,17,20,"s upertest 
490 char 1,17,22,”(c) torsten stenz 
el” P 

500 a$="funktion nr.1i -eingabe-":go 
sub 2120 

510 g=-g+1:3$="fremdsprache:" :gosub 
2120 

520 input f$ 

530 g=-g+1:a$="anzahl der vokabelntl - 
120 stce.):":gosub 2120 

SA0Q input a 

550 if a>120 then: 530 

560 if a<4 then 530 

570 gosub 20 2 

580 scnclr:g=O 

590 for q=1 to a:let b$=str$(g) :a$= 


a$+b$ 
600 char 1,17,20,"supertest 
" 


610 char 1,17,22,"(c) torsten stenz 
el” 

620 a$="vokabel nr.":let a$=a$+b$:g 
=g+2:gosub 2120 


630 a$=-"deutsch:":g=g+1:gosub 2120 
640 input d$(g) 

650 a$=-f$+":":g=g+ti:gosub 2120 

660 input e$(g) 

670 if g>12 then g=-D:scnelr 

680 next q 

690 a$-"=>=3---->=37 ende der eingabe 
---------- ":g=g+13:gosub 2120 

700 for z=1 to 900:next z 

710 goto 320 

720 scenclr:if a<i then gosub 2200:g 
oto 320 

730 g=-0 

740 char 1,17,20,"s upertest 
” 

750 char 1,17,22,"(c) torsten stenz 
el” 

760 a$="funktion nr.2 -lernen-":gos 


ub 2120:g=g+1 

770 a$="test nr.1”":gosub 2120:g=g+1 
780 a$="wollen sie "+f$+"-deutsch( f 
1)oder":gosub 2120 

790 a$="( f2) deutsch-"+f$+” lernen ? 
":gosub 2120 

800 get p$ 

810 if p$="Q" then 1=1:goto B40 
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Supertesst 16 


820 if p$="W" then 1=2: zart. 840 

830 goto 800 

840 g=-0:scncelr:g=g+2 

850 if 1=1 then a$=f$+"-deutsch":go 
sub 2120 

860 if 1=2 then a$="deutsch-"+f$:go 
sub 2120 

870 a$="wieviele woerter w.sie lern 

en:":g=g+2:gosub 2120:input u 

880 if u<1 then 870 

890 scnclr:g=2 

900 a$="ich w.ihnen e.wort auf den 

bildschirm" :gosub 2120 

910 a$="schreiben und s.muessen das 
jeweilige":gosub 2120 

920 a$="fremdspr.oder deuts.wort da 

zu eingeben” :gosub 2120 

930 a$=-"viel spass...":gosub 2120 

940 for s=1 to 1200:next s 

950 for w=1 to u:scncir:g=2 

960 color 1,7,4:char 

1,0,0, "TTCCECECCECCCCCCtest-nr.iCccce 

CECCCCCECECEEC" 

970 char 1,0, 10, "DDDDDDDDDDDDDDDDDD 

DDDDDDDDDDDDDDDDDDDDDD" 

980 color 1,1,7 

990 gosub 1710 

1000 char 1,17,20,"supertes 


char *(c) torsten sten 


1,17,22, 
z=int (rnd( 1)}*#a) +1 
if u=sz then 1020 
et u=z 

if z<i then 
if 1=1 then 
sub 2120 
1070 if 
I):gosub 
1080 if 
2:gosub 
1090 if 
sub 2120:input q$ 

1100 if 1=1 and q$=d$(z) then 1150 
1110 if 1=2 and q$=e$(z) then 1150 
1120 if 1=1 then 1190 

1130 if 1=2 then 1240 

1140 stop 

vol 7:sound 1,700,25 

char 1,10, 18,"====richtig":for 
to 800:next p:char 1,10,18,".. 
scnelr:vol O:next w 

goto 1270 

vol B:gosub 1830 

for s=1000 to 700 step -10:sou 
nd 1,s,1:next s 

1210 a$="falsch,es war "+d$( z) :g=g+ 
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1020 
a$=f$+":"+e$(z) :go 


1=2 then a$= 
2120 

1=1 then a$="deutsch:"” 
2120:input q$ 


"deutsch:"+d$( z 


:g=g+ 


1=2 then a$=f$+":":g=g+2:go 


2:gosub 2120 

1220 for s=1 to 900:next s:r=r+1:go 
sub 1710 

1230 scnelr:next w:g=-10:goto 1270 
1240 a$="falsch,es war "te$(z) :g=-g+ 
2:gosub 2120 

1250 for s=-1 to 900:next s:r-r+1 
1260 scnclr:next w 

1270 a$="------- ok test nr.1i ist be 


- ":gosub 2120:g=0 
1280 for p=1 to 700:next p 


1290 scnclr 

1300 a$="funktion nr.2 -lernen-":go 
sub 2120:g=g+1 

1310 a$="test nr.2":gosub 2120:g=g+ 
1 


1320 a$="ich schreibe ihnen ein deu 
tsches"”:gosub 2120 
1330 a$="u.zwei fremdspr.woerter au 


f den”:gosub 2120 

1340 a$="bildschirm-sie muessen nun 
auf fi o.f2”:gosub 2120 

1350 a$=-"tippen u.so d.richtige loe 
sung finden.”:gosub 2120 

1360 a$="wiev.durchgaenge wol.sie m 
achen:":g=g+1:gosub 2120:input 
y:g-0 
1370 
1380 
1390 
1400 


if y<i then 1360 

for h=1 to y 

g-0:scnclr:color 1,7,4 

char 1,0,0, "CCECCCCCCCCCCCCCtes 
t-nr.iiCCCLCECCECECCCEc" 

1410 char 1,0, 11, "TCCCCCCECCCCCCECEE 
IHHHHHHHHHHHHHHHHHNHHHEN NG 


1420 color 1,1,7 

1430 gosub "1710 

1440 z=int(rnd( 1)*#a)+1:if z<i then 

1440 

1450 x=int(rnd( 1)*#a) +1:if x<1 then 

1450 

1460 let c=q 

1470 if z=x then 1440 

1480 g=-g+2:a$=f$+":"+e$[lz)+"(Fi)":g 
osub 2120 

1490 char 1,17,20,"s upertes 

e” 

1500 char .1,17,22,"Cc) torsten sten 
zel" 

1510 g=g+1:a$=F$+":"+e$lx) +"(F2)":g 
osub 2120 

1520 q=int(rnd( 1)#2)+1:if q<i then 

1520 

1530 if u=q then 1520 

1540 let u=q 

1550 if q=2 then a$="deutsch:"+d$[l x 


):g=g+t2:gosub 2120:goto 1600 
1560 if q=1 then 3$="deutsch:"+d$( z 
) :g=g+t2:gosub 2120:goto 1590 


Supertest 16 


1570 if c=q then 1520 

1580 goto 1520 

1590 let c$="" 

1600 if q=1 then let c$="fi1":goto 1 
620 

1610 if q=2 then let c$="f2":goto 1 
620 

1620 get b$ 

1630 if b$="Q" then 1660 

1640 if b$="W” then 1660 

1650 goto 1620 

1660 if q=1 and b$="Q" then 1910 
1670 if q=2 and b$="W” then 1910 
1680 vol ?:for s=500 to 1000 step 1 


O:sound 1,s,1:next s 


1690 gosub 1830:for p=1 to 700:next 
p 

1700 goto 1880 

1710 char 1,5, 15, "U###I" 
1720 char 1,5,13,"t e d” 
1730 char 1,5,16,”CW WH"” 
1740 char 1,5,17,"T @ Y" 
1750 char 1,5, 18, "GJFKH" 
1760 char 1,5, 19,"J---K" 
1770 char 1,5,14," I” 
1780 char 1,5,20," N M” 
1790 char 1,5,21,"0 pP” 
1800 char 1,5,22," ted " 
1810 char 1,5,23, "=====" 
1820 return 

1830 char 1,5, 18, "GU-IH” 
1840 char 1,5,16,"G H" 


1850 
1860 
1870 


char 1,5,14,"” u” 

char 1,10, 18,"===falsch"” 
return 

1880 gosub 1830 

1890 rer+1:g=g+1:a$="falsch,es war 
"+c$:gosub 2120:for p=1 to 600:next 
p:next h 

1900 goto 1940 

1910 vol ?:sound 1,700,15:char 1,10 


‚18,"====-=richtig":for p=1 to 700:n 
ext p 
1920 char 1,10, 16," ua innen. " 


1930 next h:goto 1940 

1940 scnclir:g=4 

1950 a$="----funktion nr.2 -lernen- 
beendet----":gosub 2120 

1960 1=int( 100/( y+u)*r) 

1970 v$=str$(1) 

1980 for p=1 to 500:next p 

1990 a$="sie hatten "+v$+"% d.voka. 
falsch":g=-g+2:gosub 2120 


2000 if 1>5 and 1<15 then n>2 
2010 if 1<5 then n=1 
2020 if 1>14 and 1<30 then n=3 


2030 
2040 


if 1>29 and 
if 1>49 and 


1<S0O then n>=4 
1<60 then n=4 


2050 
2060 


if 1>59 and 1<70 then n=5 

if 1>70 then n=6 

2070 let n$=str$(n) 

2080 a$="ihre testnote ist "+n$:g=g 
+1:gosub 2120 

2090 g=-g+2:a$="ich hoffe ihre "+f$+ 
"-kenntnisse":gosub 2120 

2100 a$="sind jetzt etwas besser... 
":gosub 2120 

gen for p=1 to 1000:next p:goto 32 


2120 
2130 
2140 
2150 
2160 
2170 
2180 


f=0 i 

vol ? 

char 1,1,g,1left$(a$,f) 

let b=len (a$) 

sound 3,800, 1 \ 

if f>b then g=g+1:vol D:return 
f=f+1:if f>40 then f=0 

2190 goto 2140 

2200 g=1:3$="ich habe noch keine vo 
kabeln":gosub 2120 

2210 a$="im speicher...... error...! 


'1":gosub 2120 


2220 for t=1 to 600:next t = 
2230 return 

2240 scncelr:g=O 

2250 char 1,17,20,"s upertes 
E” 

2260 char 1,17,22,"(c) torsten sten 
zel" 

2270 a$="funktion nr.2 -medium-":go 
sub 2120 


2280 a$="wollen sie (fi)iaden oder 
{F2)saven ?":g=-g+?2:gosub 2120 


2290 get b$ 

2300 if b$="W" then 2330 

2310 if b$="Q” then 2510 

2320 goto 2290 

2330 if a<4 then scnclr:gosub 2200: 
goto 320 

2340 a$="saven-kas.in rekorder einl 
egen !":gosub 2120:g=g+1 

2350 a$="name des files:":gosub 212 


O:input n$ 
2360 a$="notieren sie sich den file 
name" :gosub 2120 

2370 a$="und d.anzahl der vokabeln- 
":gosub 2120 

2380 a$="(fuer spaeteres laden...!! 
!)”":gosub 2120 

2390 b$=str$(a) :a$="es sind..."+b$+ 
" stc.":gosub 2120 

2400 open 1,1,1,n$:for g=1 to a 
2410 print#1,e$(g):next g 

2420 close 1 

2430 open 1,1,1,n$:for g=-1 to a 
2440 print#1,d$({g):next g 

2450 print#1,f$ 
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2460 close 1 

2470 scncelr:g=14 

2480 a$="--------------- ende save-- 
Seemann ":gosub 2120 

2490 for p=1 to 600:next p 


goto 320 

if a>2 then goto 2650 
g=-g+ti:a$="load-kas.in recorder 
einlegen":gosub 2120 : 

2530 a$="anzahl der vokabeln:":gosu 
b 2120:input a 

2540 dim e$(a) :dim d$(a) 

2550 a$="name des files:”:gosub 212 
O:input n$ 

2560 open 1,1,0,n$:for g=1 to a 
2570 input#1,e${g) :next g 

2580 close 1 

2590 open 1,1,0,n$:for g=1 to a 
2600 input#1,d$(g) :next g 


2610 input#1,f$ 

2620 close 1 

2630 sencelr:g=14:a$="-------- - ----- 
ende load--------------- ":gosub 212 
8) 

2640 for p=1 to 600:next p:goto 320 


2650 senclr:g=2:3$="der vokabelspei 
cher ist voll...":gosub 2120 
2660 a$="wollen s.die alten vok.loe 


schen( f1=ja)?":gosub 2120 


2670 get a$ 
2680 if a$="Q@" then 2710 
2690 if a$="" then goto 2670 


2700 goto 320 

2710 a$="ok...ich loesche..."”:gosub 
2120:for p=1 to 600:next p 

2720 cir u 

2730 scenelr 

2740 goto 2510 

2750 senclr:g=2 

2760 a$="der vokabelspeicher ist vo 
11,soll ich":gosub 2120 

2770 a$="neu starten (fi=ja)?":gosu 

b 2120 

2780 get b$ 

2790 if b$="" then 2780 

2800 if b$="Q" then elr:goto 10 

2810 goto 320 

2820 rem supertest =======16/116/p4 

2830 48383 bytes memory Se 

2840 08199 program = 

2850 00122 variables = 

2860 

2870 

2880 

2890 
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Minotsauru6s= | e- 15 


10 rem == minotaurus ========== === 
20 rem {p) 'commodore welt = 
30 rem ===>=======-=-====-======2==0- 
40 rem (c) cw-team = 
50 rem ci6/116/plus 4 ; 

60 rem ====>=====-=-=-=-=-=-===2==m=m22022- 


70 c4$=chr$( 17) :c2$=chr$( 145) 


80 c3$=chr$( 29) :ci$=chr$( 157) 
90 trap 110:zb=1000 


color1,i1:colorO0,2,3:color4,1 
graphic1,1 

char, 0,0,"”"” 
sshapem$,0,0,4,4:gshapem$,0,0,4 
sshapep$,2,2,3,3 

forz=ito 23:fors=0t039 
x=int(rnd( 1)#2) :char,s,z,chr${1 
64+x) 

170 next:next 

180 draw,D,8 to 319,8 

190 draw,0,192 to 319,192 

200 x=155:y=194:gshapem$,x,y 

210 ti$="000000" 

220 getkeya$:gshapep$,x+1,y+1,3 

230 if a$=c3$ thengshapem$,x,y,4:x= 
x+4:gosub300:x=x+4:gshapem$,x,y,4 
240 if a$=c1$ thengshapem$,x,y,4:x= 
x-4:gosub300:x=x-A:gshapem$,x,y,4 
250 if a$=c2$ thengshapem$,x,y,4:y= 
y-4:gosub300:y=y-4A:gshapem$,x,y,4 
260 if a$=c4$ thengshapem$,x,y,A4:y= 
y+4:gosub300: y=y+4:gshapem$,x,y,4 
270 ify=186then drawD,x,y+6 to x+4, 
y+6 | 

280 ify=2then drawÜO,x,y+6 to x+4,y+ 
6:g0t0330 

290 goto220 : 
300 gshapem$,x,y,4:gshapem$,x,y,4:r 
eturn 

310 goto110 

320 rem * zeitauswertung *# 

330 zn=int(ti/60) :if zb>zn then zb= 
zn 

340 paint,0,0 

350 char,0,0,"neue zeit:":char, 11,0 
‚mid$( str$( zn), 2) 

360 char,23,0,"beste zeit:":char,35 
‚O,mid$( str$( zb) ,2) 

370 char ,0,24,"noch ein spiel j/n"”: 
getkeyf$ 

380 if f$="j" then goto 110 

390 if f$<>"n"” then goto 370 

400 graphicO:end 


COMMODBORE-WELT 
JEBEN MONAT NEU 


Fjeberkurves 


10 rem fieberkurve =========-===016 
20 rem (p) commodore welt 

30 rem ======-=-======== 2 === === 2==== 
40 rem (c) by = 
5D rem paul saar = 
60 rem = 
70 rem version 3.5 40z/ascii = 
80 rem c16/c116/plus 4 +1531/1541= 
90 rem ========2==- == === === 2222202200 


100 graphicD, 1 
110 scnclr 

120 print” es wird behauptet , die 
commodore....... computer 16,116,pil 
us 4 waeren tot.” 

130 print” mit einfachen befehlen 
des graphicbe-...reiches lassen sic 
h die vorteile...” 

140 print"..der vorgenannten comput 
er nicht von..... der hand weisen !"” 
150 print”..auch 64 freaks muessen 


zugeben ,„ das....erweiterte basic 3 
‚5 wuerde auch "” 
160 print" 


rbeit stark...... erleichtern." 

170 print”..beispiel: erstellung ei 
ner fieberkurve” 

180 for t=1 to12000:nextt 

190 scnclr 

200 print”"fieberkurve erstellen" 
210 input"monat.........-... ";m$ 

22D input”name....... a ae "ın$ 

230 scnclr 

240 graphic2,1 


250 
260 
270 
280 
290 
300 
310 


x=atd:a=x+4 
draw1,g,xto 320,x 
ifx=> 160then x=0:goto290 
goto250 

y-b+4 :b=y+4A 
drawi,y,4 to y, 160 
ify=-> 320then goto 330 
320 goto290 

330 char1,5,19,"1234567890123456789 
0123456789012345” 

340 char1,1,18,"36,0” 

350 char1,4,17,"”1” 

360 char1,4,16,"2” 

370 char1,4,15,”3” 

380 char1,4,14,"”4"” 

390 char1,4,13,"5" 

400 char1,4,12,”6"” 

410 char1,4,11,"7"” 

420 char1,4,10,”8"”. 

430 char1,4,9,”9" 

440 char1,1,8,"37,0” 

450 char1,4,7,”1"” 

460 char1,4,6,"2” 

470 char1,4,5,”3” 

480 char1,4,4,"”4” 


64 programmierern die a 


char1,4,3,"”5" 
char1,4,2,”6" 
char1,4,1,"7” 
char1,10,1,m$ 
char1,20,1,n$ 
c=44 
draw1,44,148 


.u nm nun nenn 2 nen ernennen 
nn 21T Tr mn nr nenne nennen 


5I70.priant” . ae; ers . 
580 input” temperatureingabe in gr 
ad celsius....... (36.0-37.7) tag 
1-31 ";b 

590 volB 


600 ifb=-<35.9.or b=->37.Bthen print” 
..falsche eingabe ":sound1,800,10:g 
oto560 

610 ifb=-36.0thena=148 

620 ifb=-36.1ithena=140 

630 ifb=-36.2thena=132 

640 ifb=-36.3thena=124 

8650 ifb=-36.4thena=116 

8660 ifb=-36.5thena=108 

670 ifb=-36.6thena=100 

680 ifb=-36.?7thena=92 

690 ifb=-36.8thena>84 

700 ifb=-36.9thena=76 

710 ifb=-37.Dthena=68B 

720 ifb=37.1ithena=60 

730 ifb=37.2thena=52 

740 ifb=-37.3thena=44 

750 ifb=-37.4Athena=36 

760 ifb=-37.5thena=28 

770 ifb=-37.6thena=20 

780 ifb=-37.?7thena=12 

790 drawtoc,a 

800 c=c+8 

810 ifc=>288 then goto 830 
820 gotoS60 
830 print "” 
850 rem 
860 rem 
870 rem 
880 rem 
890 rem 
900 rem 
9i0 rem 
920 rem 
Dieses kleine Programm 
veranschalicht die Lei- 
stungsfähigkeit für Grafi- 
ken im Basic des 16/P4 
Die Abfrage erfolgt zu- 
erst nach Namen und 
Datum der entsprechen- 
den Grafik, welches spä- 
ter in diese eingeschrie- 
ben wird. Daraufhin wird 


eingaben beendet” 
fieberkurve 

012277 bytes 
002409 bytes 
000000 
000000 
000000 
000000 


eine Tabelle erstellt, wel- 
che vertikal die Tempera- 
turgrade und horizontal 
die Monatstage darstellt. 
Nun müssen für alle Tage 
die entsprechenden Tem- 
peraturen eingegeben 
werden, für die die Fie- 
berkurve berechnet wer- 
den soll. 


memory 
programm = 
variables == 
arrays == 
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LISTINGS 


BARACUDA 


Mit diesem Adventure stelle ich Ihnen ein Spiel vor, 
das nicht nur von reinem Text, sondern auch von va- 
ritativen Grafik- und Soundeffekten lebt. Die Hires 
Grafik konnte ich aufgrund Speicherplatzmangels 
nicht einsetzen, aber ich holte alles raus, was die Gra- 
fik des Textmodus hergab. ‚„Rems“‘ habe ich zu Gun- 
sten des Programminhaltes nur die allernötigsten 
eingefügt. Auf Grund des Speicherplatzes im C 16 
habe ich auch manche Zeilen (If-Abfragen) recht voll- 
gepackt, doch auch wenn diese Zeilen über 80 Zei- 
chen zu haben scheinen, es erscheint bei keiner ein 
„String too long-error‘‘, selbst wenn man sie ohne 
Befehlsabkürzungen mit Return integriert. 


1. Zum Spielverlauf: 
Sie sind in den Krater des Vulkans Baracuda gefallen 
und müssen sehen, daß Sie schnellstens wieder her- 
auskommen, denn der Ausbruch steht kurz bevor. 
Der Krater hat viele Gänge und man weiß nie, wel- 
cher der jeweils kürzeste Weg ist. Es gibt aber einige 
Monster, die ihre Fallen in vielen Gängen ausgelegt 
haben und wenn Sie diesen Ungeheuern in die Finger 
geraten, wird es schwer werden, die Aufgaben zu be- 
stehen, um nicht getötet zu werden. Haben Sie es je- 
doch geschafft, an einen Ausgang des Vulkans zu ge- 
langen (vielleicht durch die Hilfe des smaragdgrünen 
oe erwartet Sie ein lautes und farbenfrohes 
inale. 


HI. Programmaufbau: 

Zuerst das Hauptprogramm. Dann die Spielunterpro- 
gramme: (Buchstabenraten), (Grausame Gabler), 
(Namenchanger), (Loserbuster), (Freßmonster), 
(Steinschlag), (Wilde Schweinchen) und (smaragd- 
grünes Einhorn). Die Unterprogramme zum Zeich- 
nen des Vulkans, des Finales und die zahlreichen 
Unterunter- und Unterunterunterprogramme habe 
ich bei dieser Aufzählung nicht berücksichtigt. 


III. Detaillierte Erklärungen zum Programm: 

Durch den “TRAP“-Befehl habe ich eine Möglichkeit 
für diejenigen Leute eingebaut, die es leid sind, den 
Vorspann und die Einleitung zum xten Mal zu ertra- 
gen. Startet man das Programm mit “RUN“ und 
drückt danach die “Run-Stop-Taste“, springt der Com- 
puter sofort in Zeile 460 ohne Verlust der definierten 
Strings. e 

Der Pokebefehl setzt die Anzahl der im Tastaturpuf- 
fer vorhandenen Zeichen auf 0. 

Wenn die in Zeile 560/570 erzeugte Zufallszahl 9 

oder 10 beträgt, wird die Schleifenvariable, die die 
Zahl der zurückgelegten Schritte anzeigt, um 1 erhöht. 
Ergebnis: Sie kommen einen Schritt weiter, ohne daß 
irgendetwas passiert. 

Wenn die Zufallszahl zwischen 1 und 8 beträgt, springt 
der Computer in das entsprechende (Spiel-)Unterpro- 
gramm. 

Die Zuweisung (“String‘‘=STR‘String‘(15-T)) wan- 
delt die Zahl (15-T) in einen String um. Das ist not- 
wendig, da die Anweisung “Char“ die hier sehr prak- 
tisch ist, nur Text in Hochkommas oder eben Strings 
akzeptiert. 

Der String FE $ taucht am Ende eines jeden Spieles 
auf. Hat man das Spiel bestanden (gewonnen), erhält 
er den Wert “R’, hat man versagt den Wert “F”. Im 
ersten Fall geht das Programm normal weiter, im 
zweiten jedoch wird der Computer zurückgeschickt 
und endet damit. Die Anweisungen in diesem Ab- 
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schnitt bewirken, daß zweimal ‚„gewürfelt‘“ wird. 
Hier wird das gemeine Lachen des grausamen Gamb- 
lers am Anfang und am Ende, falls man verloren hat, 
produziert. 
Eine Zufallszahl wird zwischen 3072 und 4072 (Bild- 
schirmspeicher) erzeugt. In den Zeilen danach wird 
ausgeschlossen, daß das spätere Wort, dessen Position 
durch “AD“ bestimmt wird, zu nahe an den rechten 
Bildschirmrand gedruckt wird, so daß das Wort nicht 
zweigeteilt auftritt, außerdem ist es optisch auch 
schöner. Es wird ein zufälliges Buchstabenpokecode 
erzeugt, der dann an die vorher bestimmte (AD) Adres- 
se gepokt wird. Der Name, den der Spieler für den 
richtigen hält, wird eingelesen und mit dem vorher 
zufällig bestimmten Namen verglichen. Dann springt 
der Computer in das jeweilige Unterprogramm zum 
Zeichnen einer Karte, das durch eine Zufallszahl be- 
stimmt wurde. Übrigens stehen bei diesem Spiel prak- 
tisch zwei vollständige Herzsequenzen zur Verfügung, 
da ich eine einmal aufgetauchte Karte nicht von der 
Liste „‚streiche“. 
Es werden die beiden Anfangsbuchstaben der zu er- 
ratenden Karte eingelesen und mit den tatsächlichen 
verglichen und ausgewertet. Es werden die Variablen, 
die bekunden, ob die Zahl für das jeweilige Freßmon- 
ster gefunden wurde, auf 0 gesetzt und die Zufalls- 
zahlen für die Monster determiniert. 
Es werden die jeweiligen Zeichen auf den Bildschirm 
gepoket. Es geht einfacher, doch um das Basic V 3.5 
auszunutzen, arbeite ich hier mit “Trap“: Es wird 
eine Zahl eingelesen, die zwischen 1 und 7 liegen muß. 
Durch ‘“ Trap“ erscheint bei allen Fehlersituationen 
(z.B. “Run-Stop‘“ oder einem “Type Mismatch‘“) 
“Nur die Tasten von 1 — 7“. 
Es werden beim Bewegen der Monster die vorherigen 
Positionen gelöscht. Es werden durch die IF-Abfrage 
die Monster bewegt, oder wenn eine Zahl gefunden 
wurde, „gestrichen“. Es werden die durch Zufalls- 
zahlen erhaltene Bildschirmpositionen durch das re- 
verse Herz und ‘“5“‘mal durch die Steine besetzt. 
Nun wird die „‚Herzposition‘‘ mit den jeweiligen 
„Steinpositionen“ verglichen. Bei Übereinstimmung 
sind Sie für den Computer gestorben. 
Wenn Sie den Ausgang des Vulkans erreichen sollten, 
freut sich ein Männchen mit Ihnen und hüpft Hampel- 
mannähnlich herum. Das Einhorn beschert Ihnen ein 
Weiterkommen von einem bis zu acht Schritten, wäh- 
rend es unter dem Text vorbeigaloppiert. 
Manche Zeilen enthalten Subroutinen, die so oft vor- 
Bar un, daß ich sie als Unterprogramme integriert 
abe. 
Es werden der Vulkan gezeichnet und durch Zufall Zei- 
chen erzeugt, die der Vulkan zufällig ‚speit‘“. 


IV: Liste von Basic-Befehlen, die vielleicht nicht 
jedem geläufig sind: 

AB(X): Ein Text wird um X Positionen (0—255) 
verschoben gedruckt. 
GETKEY X “String‘“: Das Programm wartet, bis eine 
Taste gedrückt wird (entspricht beim C-64 WAIT 


IF...THEN...:ELSE: IF-Abfrage mit Alternative. 
COLOR 1,X,Y: Die Zeichenfarbe (oder: 0-Hinter- 
grund; 4=Rahmen) wird auf die Farbe X mit der 
Helligkeitsstufe Y gesetzt. 

SOUND X,Y,Z: Der Ton wird mit der Dauer Z durch 
den Tongenerator X angesprochen. 

VOL(X): Ein Ton wird mit der Lautstärke X gespielt. 


Bitte lesen Sie weiter auf Seite 42 


Bara& z zuda 


iO rem baracuda =============plus 4 


20 rem (p) commodore welt ts= 
40 rem (c) by = 
50 rem martin purucker = 
60 rem wuerzburg = 
70 rem version 3.5 40z/ascii = 
80 rem plus 4 oder c 16 + 64 k = 


100 r$=chr$( 018) :0$=chr$f{ 146) :F$=ch 
r$( 130) :g$=chr$( 131) 

110 es$=chr$( 027) :ho$=chr$( 019) :z0$ 
=chr$( 177) 

120 trap310:gosub 1390 

130 fort=1to1000:next:color 1,1 

140 char1,39,22,es$+"b”:char1,0,13, 
es$+"t":rem windowing * Dr 

150 scenclr 

160 print”"sie armer teufel sind in 

den krater ge-":print 


170 print"fallen und muessen schnel 


istens hier ":print 


180 gosub438D 

190 print"raus,denn der ausbruch st 
eht kurz bevor!":print 

200 gosub4370 

210 print”"sie koennen nach sueden,n 


orden,westen":print 

220 print"oder osten mit s,n,w,o fl 

vuechten.":print 

230 gosub4380:scncir 

240 print”aber vorsicht ! 
viele monster":print 

250 print"und fallen in den gaengen 
des vulkans !":print 

260 gosub4380 

270 print” jede konfrontstion gefaeh 

rdet ihr leben!":print 

280 gosub438D 

290 char1,9,20,f$+"viel glueck ! ! 
I"+g$ 

300 gosub4370 

310 printho$ho$:color 1,1 

320 xx=int(rnd( 1) #16) +5 

330 scnclr 

340 fors2=1toxx 

350 aa=xx-s2+1:poke239,0 

360 ifaa=O0thenxx=s2-1:g0oto560 

370 print:print:print”sie muessen g 

enau"”;aa;"schritte bis zum” :print 

380 print"”ausgang gehen !":gosub422 

Tg 

3930 scnelr:print:print”in welche ri 

chtung wollen sie gehen ?...(s/n/w/ 

0)” 

A0OD getkey ri$ 

410 ifri$="s"orri$="o"thenri=int(rn 
d( 0) #10) +1:goto440 


- es gibt 


420 ifri$="n"orri$="w"thenri=int(rn 
dt 1) #10) +1:goto440 

430 print:print"depp !"”:fort=1t0100 
O:next:goto390 

440 ifri=-9orri=10thens2=s2+1 :goto35 
1} 

450 ifs2=xxthen570 

460 onrigosub620, 810, 1490, 1920, 3310 
‚3660, 3940,4090:color1, 1 


470 ifri=-7then340 

480 iffe$="f"thenxx=s2-1:goto550 

490 scnclr 

500 print:printtab( 8) f$; "gratuliere 
1":8$ 


510 print:print"sie haben das abent 
euer bestanden ! -":print 
520 print"es geht weiter 
530 nexts2 
540 goto560 
550 print:print:print”"tut mir leid, 


sie werden eingeaeschert !":end 
560 scncelr 
570 print:printf$;"”super - spitze - 


klasse”;g$:print 
580 gosub4370 
590 print:print"sie haben es gescha 
fft I £ E"sprint 
600 print”ihr leben ist gerettet ! 
! 1”":.gosub4380:scncelr:gosub3999 
610 end 
620 rem #*#**#* buchstabenraten * 
630 scenelr:print:print"ihr leben is 
t in gefahr ! - ” 
640 print:print"ihre einzige chance 
zu ueberleben ist,"”:print 
650 print"”wenn sie aus den 26 buchs 
taben in 15 "” 
660 print:print"versuchen den richt 
igen finden ! ! !":print 
670 printf$;"viel glueck”;g$ 

680 b$=chr$( int( rnd( 1) *26) +65) 
690 fort=1to015 
700 getkey a$:vol8:sound1,90,5:ifa$ 
=b$thenx=t-1:goto760 
710 c$=str$( 15-t) :char 
1,5,12,"noch"+c$+” versuche ":next: 
print 
720 sound1,0,100:sound2,500, 100 
730 print:print:print"tut mir leid, 
sie sind tot !"”:gosub4370 
740 fe$="f"” 
750 return 
760 print:print:printtab( 10) 7$;"guu 
ut !";g$ 
770 fort=-0t0500:sound1,t,1:sound2,t 
+500, 1:next 
780 gosub4220 

790 fe$="r" 
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800 return 

810 rem ##### grausamer gambler * 
820 scnelr:print:print"ich bin der 
grausame gambler,und du":print 

830 print"bist in meine folterhoehl 
e geraten ! ! !":print 

840 print"du kommst hier nur lebend 
wieder heraus" :print 

850 print"”wenn du mich im wuerfelra 
tespiel besie-":print 

860 print”gst. also dann wollen wir 
mal um dein" :print 

870 printtab( 15) f$; "leben";g$:print 
:print”spielen !"” 

8860 gosub4370:gosub1310 

890 gosub4220 

900 scenelr 

910 forx=1to2 

920 fori=-1t06 

930 h(i)=O 

940 nexti 

950 fori=1to2 

w=int(6*#rnd( 1)) +1 

hl i)=w 

nexti 

print h( 1);"+";h(2) ;"=";hl 1) +hf{ 


fEx)=hl 1) +hl2) 
gosub4370 

print 

print 
ifx=2then1100 
print"raten sie : 
f hoeher, oder":print 
1060 print"niedriger werden ? (h/n) 


wird ihr wur 


1070 
1080 
1090 
1100 


getkey w$ 

print 

nextx 
iffl1)-Fl2)>Dandw$="h"orf( 1) -F 


(2) <Sandw$="n"thenprint:print:gotol 


140 

1110 iffl 1)-F(2)=Othenprint"oh,eins 

tand,naja ein neues spiel-ein neues 
leben !":goto1130 x 

1120 printtab( 13) f$; "gewonnen !";g$ 
:goto1170 

1130 gosub4370:got0900 

1140 print :print:printtab( 12)f$; "ve 

rloren !";g$:g0sub1310 

1150 fe$="f" 

1160 return 

1170 vol5 

1180 sound1,4,15 

1190 sound1,60,14 

1200 sound1, 150, 13 

1210 sound, 320,12 

1220 sound1,550, 15 
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1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1 ı 

1330 
1340 
1350 
1360 


sound1,550, 15 

sound1, 320, 12 

sound1, 150,13 
sound1,60, 14 
sound1,4,15 
sound1,0,20. 

fe$="r" 

return 
print:print:print 
printtab( 10)f$;r$;"ha, 
!1"50$;g$ 

forb=1t03 
forh=1t01000step20 
volS 

sound1,h, 1 

1370 nexth 

1380 for3j=1t0300:nextj:nextb:print: 
return 

1390 rem #F#t##EH#88 yorspann *# 
1400 color1,3,4:scnclr:print:gosub4 
240 
1410 
1420 
1430 


ha, ha 


print 

volint( rnd( 1)*8) +1 
d=int( rnd({ 1) #16) +1 

1440 colori,d,int( d/3) 

1450 printtab( 10) f$”das ist baracud 
a,";8$ 

1460 print 

1470 printtab(3)f$;”"der allesvernic 
htende vulkan I I !”;g$ 

1480 fort=1t010:sound1,4,2:sound3,0O 
‚„20:nextt:return 

1490 rem ######32# namenchanger *# 
1500 scenclr:color1,i1 

1510 print:print”du bist hier im lo 
ch von namenchanger, ":print:print"u 
nd ich gebe dir"; 

1520 print"eine chance, "”:print:prin 
t"dein erbaermliches leben zu rette 
nn. > £% 

1530 print:print 

1540 print"irgendwo auf diesem bild 
schirm wird":print 

1550 print”"gleich mein 4-stelliger 
name kurz auf-":print 
1560 print"leuchten ! - merke..ihn 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 


print 

gosub4220 

scenclr 
ad=int( rnd{ 1) #1000) +3072 
forp=-1t025 
ifad=3071+p#40thenad=ad-9 
ifad=-3070+p*#40thenad=ad-8 
ifad=-3069+p*40thenad=ad-? 
1650 ifad=-3068+p*40thenad=ad-6 
1660 nextp 

1670 fors=1t04 


EEE 
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1680 
1690 
1700 
1710 
1720 


ad=>ad+1 
ze=int(rnd{ 1) *26) +1 
als) =ze 

pokead, ze 

nexts 

1730 fort=-1t0250:next:scnclr 
1740 print:print"wie ist denn nun m 
ein name ?" 

1750 print:print:print:print 
1760 getkey n1$,n2$,n3$,n4$ 
1770 name$=n1$+n2$+n3$+n4$ 


1780 a$=chr$( al 1) +64) :b$=chr$lal2)+ 


64) :c$=chr$( al 3) +64) :d$=chr$( al 4) +6 

4) 

1790 geamt$=a$+b$+c$+d$ 

1800 ifname$=gesamt$then 1880 

1810 print"ha, ha - falsch - zuerst 
werfe ich dich":print 
1820 print”"den wilden teufeln vor, 
und dann kommst" :print 


1830 print"kommst du in den ";f$;"k 
ochtopf !"”;g$ 

1840 print 

.. printtab{11)f$;r$”har, har, ha 


r 1";8$;0$:gosub4370 

1860 fe$="f” 

1870 return 

1880 print”grxymkpfl - richtig - du 
bist frei und” :print 

1890 print"kannst weitergehen !":go 

sub4220 

1900 fe$="r" 

1910 return 

1920 rem ####3###4#3# loserbuster * 
1930 scncelr 

1940 print:print”darf ich mich vors 

tellen:":print 

1950 print"ich bin loserbuster,und 

ich hasse ver-":print 
1960 print"lierer so, 

in streifen"”:print 
1970 print”schneide und in die spei 
sekammer haenge!"” 

1980 print:print 

1990 print”"wie waere es denn mit ei 

nem spielchen ?!":print:print 

2000 print"ah, ich sehe, sie wollen 
mitspielen -":print 

2018 print"also gut !": 

2020 scnelr 

2030 print”das ist ihre karte : "” 

2040 print:for t=1t01000:next 

2050 ka=int( rnd( 0) #9) +1 

2060 onkagosub2320, 2430, 2540,2650,2 

760, 2870,2980, 3090, 3200 

2070 print:gosub4370 

2080 colori,i:print"”na, sind sie mi 
t ihrer karte zufrieden ?":print 


dass ich sie 


gosub4220 


2090 gosub4370:scnelr 

2100 print:print”auch wenn ich jetz 
t eine hoehere karte”:print 

2110 print”habe,koennen sie immer n 

och”; 

2120 printf$;” 
2130 print 

2140 print”sie muessen nur erraten, 
welche karte”:print:print"ich habe 
":print 

2450 print:print”geben sie die zwei 
anfangsbuchstaben der" :print 


gewinnen !";g$:print 


2160 print"”karte ein (6=se bis as=a 
s)” 

2170 getkey z1$,z2$ 

2180 kK2=int( rnd{ 0) #9) +1:print:print 
"das ist meine karte :":print 

2190 onk2gosub2320,2430,2540,2650,2 


760,2870,2980, 3090, 3200:colori,1 
2200 if(ka-k2)>Othen2270 

2210 ifz1$=z3$andz2$=z4$then2270:pr 
int 

2220 print 5 
2230 iflka-k2)=Othenprint"im zweife 
l fuer mich -":print:print"tja, pec 
h gehabt!” 

2240 gosub4370: chari, 15,18,f$+"v e 
rloren!! 1r+g$: g0sub4370 
2250 fe$="f” 

2260 print:print:print:print:print: 
return 

2270 print"gratuliere, 
wonnen, 
behelligt gehen 
2280 gosub4220 
2290 fe$="r 
2300 return 
2310 rem ####### kartengraphic * 
2320 color 1,3,3 

2330 printtab( 5) "UCCCECCEI"” 

2340 printtab(5)"B6 B" 

2350 printtab(5)”"B S S B" 

2360 printtab(5)"”B B" 

2370 printtab(5)"B S S B" 

2380 printtab(5)"”8B B" 

2390 printtab(5)"B S S B" 

2400 printtab(5)"B 6B" 

2410 printtab( 5) "JECCECK" 

2420 z3$="s":z4$="e":return 

2430 color1,3,3 

2440 printtab( 5) "UCCCEEI"” 

2450 printtab(5)"B7 B" 

2460 printtab(5)”"B S S B"” 

2470 printtab(5)”B B" 

2480 printtab(5)"”B 5 S B" 

2490 printtab(5)"”8 B" 

2500 printtab(5)”"B S S B" 

2510 printtab(5)"”8B 78” 


sie haben ge 
und” :print:print"koennen un 


w 
! 


39 
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printtab( 5) "IECCECK” 


23$="s":z4$="i":return 


ceolor1,3,3 

printtab( 5) "UECCECCI” 
printtab(5)"B8 B" 
printtab(5)"8 5 S B” 
printtab(5)"B B" 
printtab(5)"”B S S B" 
printtab(5)"B B"” 
printtab(5)"B S S B" 
printtab(5)"B 8B” 
printtab( 5) "JCECECK” 


23$="a":24$="c":return 


color1,3,3 

printtab( 5) "UCCCCCI"” 
printtab(5) "89 B" 
printtab(5)"B S 5 B"” 
printtab(5)"B B" 
printtab(5)"8 5 S B" 
printtab(5)"”B B" 
printtab{5)"B 5 6 B" 
printtab(5)"B 9B" 
printtab( 5) "JCCCECCEK” 


23$="n":z4$="e":return 


color1,3,3 

printtab( 5) "UCCCCEI"” 
printtab(5)"B10 B” 
printtab(5)"B 5 S B" 


printtab(5)"B B" 
printtab(5)"8 S S B" 
printtab(5)"B B" 


printtab(5)"B S S B” 
printtab(5)"B 10B" 
printtab( 5) "JCCCECECEK” 


2z3$="z":24$="e":return 


color1,3,3 

printtab( 5) "UCCCECECI"” 
printtab(5)"Bb B" 
printtab(5)"B S S B" 
printtab(5)"B B” 
printtab(5)"B 5 S B"” 
printtab(5)"”B B” 
printtab(5)"B S 5 B" 
printtab(5)"B bB"” 


printtab( 5) "JCECCEK ” 
23$="b":z24$="u":return 


color1,3,3 
printtab( 5) "UCCCECCI” 


printtab(5) "Bd B" 
printtab(5)"B S S B" 
printtab(5)"B B" 
printtab(5)"B S S B" 
printtab(5)"B B” 
printtab(5)"”"B S S B"” 
printtab(5)"B . dB” 


printtab( 5) "JCECCECCK" 


23$="d":z4$="a”":return 


color1,3,3 


en 


3100 printtab( 5) "UCCCCCI" 


3110 printtab(5) "Bk 8” 
3120 printtab(5)”"B S 5 B" 
3130 printtab(5)"B B” 
3140 printtab(5)"B S S B” 
3150 printtab(5)”B B” 
3160 printtab(5)"B 5 5 B" 
3170 printtab(5)"”B kB" 


3180 printtab( 5) "JCECCCCK" 

3190 z3$="k":z4$="0":return 

3200 color1,3,3 

3210 printtab( 5) "UCCCCCI"” 

3220 printtab(5) "Ba B" 

3230 printtab(5)”B S S B"” 

3240 printtab(5)"B B” 

3250 printtab(5)"B S S B" 

3260 printtab(5)"B B" 

3270 printtab(5)"B 5 S B" 

3280 printtab(5)"B aB"” 

3290 printtab( 5) "JCCCCCK” 

3300 2z3$="a":24$="s":return 

3310 rem ######%# fressmonster * 
3320 scenclr:print 

3330 print"vorsicht - sie sind in d 
ie hoehle der"”:print 

3340 printf$;"fressmonster ";g$;"ge 
raten !":print 

3350 print"sie koennen den monstern 
nur entkommen, ":print 

3360 print”wenn sie aus den zahlen 
1-7 in fuenf ver":print 

3370 print"suchen die richtigen zah 
len finden,um”:print:print"sie zu s 
toppen ! ! !" 

3380 print . 

3390 print"bei jedem tastendruck ko 

mmen sie naeher!":char1,10,18,f$+"”g 

ood luck !"+g$ 

3400 print :gosub4220 

3410 e1=0:e2=0:e3=-0:e4=0:forv=1t04: 

o(v)=int( rnd( 1)#7) +1:next 

3420 scnclr 

3430 poke3171,0:poke3371,211:poke33 

76,0:poke3366,0:poke3571,0 

3440 fort=1t05 

3450 ife1= Tande2=1onde3=-1andeA=tthe 

n3560 

3460 trap3590:getkey az 

3470 ifaz<ioraz>7then3590 

3480 gosub3600 

3490 volS5:sound3, 0,10 

3500 nextt 

3510 ife1=1ande2=1ande3=1ande4=1the 

n3560 

3520 vol8:sound1,900,40:foryy=1to3: 

forc=1t0500:next:sound3,0,5:nextyy 

3530 char1,1,12,"pech gehabt 'I":gos 

ub4370 
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3540 fe$="f" 

3550 return 

3560 char1,1,12,"noch mal dem tod e 

ntronnen !":print:gosub4220 

3570 fe$=-"r" 

3580 return 

3590 char1,1,14,"nur die tasten von 
1-7 1":gosub4370:g0t03410 

3600 poke3171+( t-1) #40, 96:poke3376- 

(t-1) ,96:poke3366+( t-1) ,96:poke3571 

-(t-1)#40,96 

3610 ifaz<>o( 1) ande i=0thenpoke3171+ 

t#40,0:elsee1i=1 


3620 ifaz<>ol 2) ande2=0thenpoke3376- 


t,0:elsee2=1 

3630 ifaz<>o( 3) ande3=0thenpoke3366+ 
t,O:elsee3=1 
3640 ifaz<>o( 4) ande4=0thenpoke3571- 
t#40,0:elsee4=1 

3650 return 

3660 rem #t##:33# steinschlag *# 
3670 scncelr:print:print”achtung!-di 
e ersten auswirkungen des be-":prin 
t ® 

3680 print"vorstehenden ausbruches 
sind im anrollen":print:print"” - st 
einschlag ! ! 1!" 

3690 print:print:print"sie sind das 
revers dargestellte 5 und":print 
3700 print"koennen nur hoffen,dass 

sie von den ":print 

3710 print"steinen verschont bleibe 
0 Be Ze; 

3720 print:print 

3730 printtab(3)f$;"vieLl 
eck!! 


elwu 
!";g$:print:print :gosub42 


scncelr:color1,3,4 
a=int(rnd( 1) *1000) +3072 
pokea,83+128 

fort=1t01000:next 
s=int( rnd( 1) #500) +300 
color1,1:forx=1tosstepi 

3800 volint(rnd( 1)#4) +1:sound3,int( 
rnd{ 1) *10),1 

3810 p=int(rnd( 1) #1000) +3072 

3820 pokep,8i 

3830 ifp=athens=x-1:vol8:sound?,0,5 
0:g0t03890 

3840 nextx 

3850 gosub4370 

3860 scnelr:print:printtab( 6) #$;"zl 
ueck gehabt..! ! 1”;g$:gosub4220 
3870 fe$="r" 

3880 return 

3890 gosub4370:print:scnclr 

3900 print:print”das war pech — sie 
sind” :print:printtab( 9) f$; ”zermant 


scht ! ! 
3910 
3920 
3930 


1";8$ 

gosub4370 

fe$="f" 

return 

3940 rem ##t#3aattt schweinchen * 
3950 print:print”sie werden von wil 

den schweinchen ver-":print 

3960 print”folgt und muessen in den 
krater zurueck" :print:printtab( 15) 
"q 1} ! ” 

gosub4380 

s2=0:return 

rem FH #2808% finale # 


gosub4240:color1,12,4:fors=1to 


4010 char1,14,10,"MWN":char1, 14,11, 
" *:char1,14,12,"N M” 

020 for t=1t010:volßB:sound1, 10*t+9 

O,i:next 

030 char1,14,10," W ":char1,14,11, 
":char1,14,12,” ” 

040 fort=1to100:next:next 

050 vol8:formm=1t020:soundi,int(rn 

( 1)*300) ‚,int( rnd( 1) *20) 

060 colorO,int( rnd( 1) #16) +1,int(rn 

( 1)*#3) +3:sound1,,int( rnd( 1) #300) +20 
‚8ö:next 

070 gosub4370:vo1l0O 

080 scncelr:color1,1:colorO,2:retur 


090 rem FF einhorn * 
100 sw=int( rnd( 1) #7) +1:print:print 
color1,6,4 

4110 print"ein smaragdgruenes einho 
n gallopiert":print 

120 print”an ihnen vorbei ! 
nnen aufsprin-"” 

130 print:print"gen und kommen”; sw 
1;”"schritte weiter !"” 

140 print:print:print:print"” ";:fo 
t=1t0250:next 

150 forbb=1t019 

160 color1,2:printchr$( 157);" ";:c 
lor1,6,4:printchr$(29);" "; 

for t=1t0200:next 
nextbb:color!,2:printchr$( 157) 


sie ko 


color1i1,1:gosub4220 

s2=s2+tsw 

return 

print:print"wenn sie bereit si 
d, ";r$;"space"”;0$:getkey 

t$: return 

230 rem #####23% yulkangraphic *# 
240 print:print:print:print:print 


250 printtab(6)"...N...----.»-» m” 
4260 printtab(6)"..N......2.... m” 
4290 printtabl6)".N....----....: u” 
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4280 printtab[6)"N......J 
u” 

4290 printtab(5)"N......--»--...r.. 
Zu lad 

4300 printtab[A)"N....-.-.----e..0.. 
ee al 

4310 forgq3=1t05S0 

4320 volß:sound1,int( rnd( 1) #200) +80 
0,1:sound3,0,5 

4330 q2=int( rnd( 1)#8) : gqO=-int( rnd( 1) 
#44) +3080 

4340 pokeg0+40*q2,int{ rnd( 1) #44) +84 
4350 nextgq3 

4360 return 

4370 fort=1t02000:next:return 

4380 fort=1t04000:next:return 

4390 rem baracuda ===========plus 4 
4410 rem 011797 bytes program == 
4420 rem 000000 bytes variables === 
4430 rem 000000 bytes arrays == 
4440 rem 000000 bytes strings == 
AA70 rem ======02=2.-.22...2222- 


BARACUDA 


TRAP X: Wenn ein Fehler (TYPE MISMATCH, RUN- 
STOP, ...) auftreten sollte, springt das Programm 

zu Zeile X und steigt nicht aus. 

SCNCLR: Der Bildschirm (ob Text- oder Graphic- 
modus) wird gelöscht. 

ON X GOTO (GOSUB) Y, Z, ...: Wenn X=1, dann 
springt das Programm zu Zeile Y, wenn X=2, zu 

Zeile Z, usw. 

CHAR x, Y,Z,Q: Der Text (String) Q wird in Spalte Y 
und Zeile Zin der Farbe gedruckt, auf die die Farb- 
zonennummer X gesetzt ist. 


V: Liste der Sonderstrings 


R “String“=CHR “String“ 


“String“= CHR“ String“ 
“String“=CHR “String“ 
CHR “String“ 
CHR “String“ 


(18) = Revers an 
(146) = Revers aus 
(130) = Flash an 
(131) = Flash aus 
(27) = Escape-Taste 
(19) = Home-Taste 
(29) = Cursor rechts 


(157) = Cursor links 


Martin Purucker 


IHRE PRIVATE 
KLEINANZEIGE 
IST KOSTENLOS 


IN DER 
COMMODORE-WELT 


Auch mit den Kleinen 
aus der Commodore-Fa- 
milie kann man statisti- 
sche Daten (z.B. Wahler- 
gebnisse) auf fast schon 
professionelle Weise gra- 
fisch darstellen, wie es 
das Balkendiagramm für 
den C 16 und (Aufwärts-) 


kombatiblle Computer 
zeigt. 
Selbstverständlich 


kann man die nötigen 
Werte auch von einem 
externen Datenträger ein- 
lesen, sofern sie in ent- 
sprechender Form auf- 
gezeichnet sind. 

Die Säulen werden in 
Kavalierperspektive so 
auf den Bildschirm ge- 
bracht, daß dieser opti- 
mal ausgenutzt wird ohne 


— DIAGRAMME 


die Übersichtlichkeit der 
Darstellung zu beinträch- 
tigen. Über die einzelnen 


"Säulen wird der zugehöri- 
-ge Wert und darunter die 


Beschriftung in das Dia- 
gramm eingetragen. Auch 
eine zentrierte Über- und 
Unterschrift ist möglich. 


Variablenliste 
N, wi), FÜ), BS(I); 
MAXL - = Maximal- 


wert; T, ZX, ZY — Hilfs- 
größen zur Bildschirmein- 
teilung; 

ZW - Zwischenraum zw. 
2 Säulen; DX - Breite der 
Säulen; DH, H - Einheit, 
bzw. Höhe der Säule; Y - 
Untere Säulenbegrenzung 
(Y-Richtung); AX - Ak- 
tueller X-Wert; SP, ZE, 
L - Spalte, Zeile, Länge 


TELEFON- 


Diese Telefondatei ermög- 
licht dem C-16-Benutzer 
endlich die Verwaltung 
von Telefonnummern 

und die Überprüfung der 
Telefonkosten in einem 
Programm ! Nach Start 
des Programmes wird im 
Menü ausgewählt. Hierbei 
ist erstens die Neueingabe 


-von Telefonnummern 


(natürlich mit dem dazu- 
gehörigen Namen) möglich, 
zweitens das Durchblät- 
tern der bereits gespeicher- 
ten Daten und drittens 

die Gebührenerfassung. 

Zu 1: Nach der vollstän- 
digen Eingabe einer Adres- 
se schreibt das Programm 
selbsttätig diese Adresse 

in eine Data-Zeile und 
hängt diese an das Pro- 
gramm an. Daher nach je- 
der Benützung das Pro- 
gramm neu absaven, be- 
vor Sie es aus dem Rech- 
ner “rausschmeißen“, um 
die Daten nicht zu ver- 
lieren. 

Zu 2: Mit einer beliebigen 


DATEI 


Taste kann hier weiterge- 
blättert werden. um die 
ag durchlaufen zu las- 


Zu 3: Dieser Menüpunkt 
unterscheidet “Teledat“ 
von den herkömmlichen 
Datei-Programmen. Der 
Benützer wählt zuerst den 
entsprechenden Wochen- 
tag sowie die Uhrzeit aus 
(damit Tele-Dat zwischen 
den verschiedenen Tarifen 
unterscheiden kann) und 
drückt dann bei Gesprächs- 
beginn eine Taste. Im 
oberen Bildschirmteil er- 
scheint nun eine laufende 
Stoppuhr, darunter wer- 
den die bereits ‚„‚verbrauch- 
ten“ Einheiten sowie die 
Gesamtsumme angezeigt. 
Bei Ende des Telefonates 
muß wieder eine beliebige 
Taste gedrückt werden, 
damit die Berechnung be- 
endet wird. Nun können 
die Gesamtsumme, Ge- 
sprächsdauer und die Ge- 
bühreneinheiten abgelesen 
werden. 
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LISTINGS | 


rem 
rem 
rem 


a ni zu Mi Mina MilL ma um mie mh mer. yinan Mm Mi äre amm sim yun une 
=> >> 2 ===>: 525 222 222252 === 


rem (c) 04/85 by paul saar = 
rem muehlheim/ruhr = 
rem = 
rem cbm-version 3.5 = 
rem c-i16 + 1531/15941 = 
0 rem H 
reS=chr$(28):bl$=schr$(31) 

gr $=chr ${30):c4$=chr$(17) 

color 0,2 
graphic 0,1 

color 1,7 

color 4,2 
printre$"...:.,,,.balkendiagramm 


nun un mn mm mm mu zum main mar ma nr ME men. Ma Mi min Mus much miiı ae m mies Mmiin mn mm zum man 
- = 2525275252222 5 22 zz zo zarzn 


” 
170 print”" 

180 printgr$" mit 10 darstellungsmo 
eglichkeiten” 


190 for t=1 to 9000: next t 

200 print"" 5 

210 printbl$".angaben.der.werte.in. 
% " re e) 

220 print""” 

230 for t=1 to 3000:next t 

240 vol 8 

250 sound 1,844,500 

280 printre$" keine werte ueber 100 


% eingeben" 


270 for t=i to Ssldl:next t 
280 printres 

290 scnhelr 

300 color 1,1 

310 input" wert a in % "ixil 
320 input" wert b in % "}jx2 
330 input" wert c in % "jx3 
340 input" wert d in % "ıixd 
350 input" wert e in % "3x5 
3580 input" wert # in % "3x6 
370 input" wert q in % "ix? 
380 input" wert h in % "5x8 
370 input" wert i in % "5x9 
200 input" wert ; in % "3xÖO 
310 graphic 2,1 


420 color 1,1 

430 draw 1,940,50t090, 159,35,150t030 
0,150,35,50t0300,50,35,60t0300,80,3 
5,?70t0300,70 

440 draw 1,35,80t0300, 830,35, 70tL0300 
‚70,35,100t0300,100,35,110t0300, 110 
‚35, 1200300, 120 

450 draw 1,35, 130t0300, 130,35, 140to 


300,140 

460 char 1,1 „ 6, "100" 

#70..char 1,1,1485," -0*% 

430 char 1,1,12," 50" 

470 char 1,5,1,"balkendiagr amm" 


500 
a7j 
sic 
520 
‚530 
540 
550 
560 
570 
580 
sr0 
s00 
sic 
620 


"630 


640 
650 
-Y-1e) 
670 
630 
sro 
>90 


gg h 
820 
y*" 

830 
840 
850 
880 
870 
880 
890 
00 
910 
920 


char 1.,5,3,"prozentwerte spalte 
u 
a=150-xÄi 
evtor 1,7,4 
box 1,48,3,£4, 150, ,1 
b=150-x2 
eoslor 1,3.% 
Box- 1,72.B, 
e=150-x3 
eolor 1,%,4 
box- L,965,C4 112,180, 41 
d=150-x4 
eolor 1,8,2 
box 1,120,d,136,150,,1 
e=130-x5 
color 1,10,9 
box 1,144,8,180, 150,1 
F=150-x6 
color 1,8,6& 
box 1,188,#,184,150, 
ge1sl-x:?7 
color 1,16,2 
box 1,192,2, 202,130, 
h=150-x8 
eolor 1,12,2 
box 1,216,h,232,150, 
i=150-x9 
eolor 1,49,49 
box 1,290,1,256, 190, 
j=150-x0 
color 1,1 
box 1,2694, j,280,150,,1 
char 1,8; 9, ta 5 © 4 

i j" 
printced$re&"noch einmal ” 


82,150, ,1 


je 


Fi ü 


‚1 


4 


r 
nn 


geta$: ifa$=", "theniOo 
ifas="n"thenend 
900830 

rem balkendiagr amme 
rem 60571 bytes memory 
rem 02138 bytes program 
rem 00000 bytes variables 
rem 00000 bytes arrays 
rem 00000 bytes strings 
rem 58533 bytes free 


u mu m um an 
===== 


u an un an a 
=.=:=== 


un au ma sum ar 
==2=2= 
an u m u u 


===> 


COMMODORE-WELT 
GIBT ES AM GUTEN 
KIOSK ODER IM 


BAHNHOFS-BUCHHANDEL 
BVC-KIOSK 


Teledat 


10 rem teledat=====-======>========g94 
20 rem (c) cbm revue team = 
30 rem =-===-=se=-me- = 22cm memsess-ecueseee 
40 rem (c) by = 
50 rem ” 
60 rem bernd welte = 
70 rem => 
80 rem gebuehrenerfassung von 


90 rem 
100 rem 
110 rem c16/116/p4 + floppy/cass. 
120 color4,7:colorO,? 

130 rn$=chr$( 18) :he$=chr$( 19) 

140 rf$=chr$( 146) :c1$=chr$( 147) 
150 c4$=chr$( 17) :s1$=chr${ 32) 

160 z1$=chr$( 42) 

170 forg=1t03:943$=q3$+c4$:nextgq 
180 forg=1t04:q4$=q4$+c4$:nextq 
190 forgq=1t06:46$=96$+c4$:nextgq 
200 forg=1t07:47$=q7$+c4$:nextgq 
210 forg=1t0o8:q48$=q8$+s1$:nextq 
220 forg=1t0A40:ga$=qa$+z1$:nextgq 
230 forg=1t040:gb$=gb$+s1$:nextgq 
240 forg=1t038:gc$=qgc$+s1$:nextgq 
250 printcl$; 

260 printga$; 

270 printz1$gc$z21$; 

280 printz1$tab( 13)"a&b weilte softw 
sre"q8$z1$; 

290 printz1$gc$z1$; 

300 printga$; 

310 printgb$; 

320 printtab( 15) "Heeres" 

330 printtab( 15) "*tele-dat*" 

340 printtabl 15) "s#reesrunen" 

350 printgb$; 

360 printgb$; 

370 printtabf 11)" 1) 


herrman wellesen 


u u u 


nummerneingabe 


380 printgb$; 

390 printtab( 11)"(2) 
sung” 
400 
410 
420 
430 
440 
450 
A60 


gebuehrenerfas 


printgb$; 

printtab( 11)"(3) ausgabe" 
printgb$; s 
printtab( 11)"(4) ende” 
printgb$; 
printgb$; 
printgb$; 

470 printtab( 17)"(c) 
A480 print 

490 do 

500 getkeya$ 

510 ifa$=-"1"thenS6o 
520 ifa$="2"then930 
530 ifa$="3"then810 
540 ifa$=-"4"thenend 
550 loop 


44 


1985" 


560 printchr$( 147) :printtab( 9) "frei 
e bytes "chr$( 18) ;fre( x) :print: nrin 
t: printchr$( 18) tabl 15) "O- menue"” 

570 print:print:print"...vor-und na 
chname" :print:inputv$:ifv$="0"theni 
0 

580 print:print" 
:inputvn$ 

590 print:print" 
utn$ 


..vorwahlnr.":print 


..nummer”:print:inp 


char1,11,20,"alles richtig? ( 53/ 
"” 


getkeyq$ 

ifgq$="n"thenS60 

ifq$=" j”"then670 

loop 

rem dataerzeugung 

dt= 20001 
printchr$( 147) ;dt; "data" 
;svn$;",";n$ 

dt=dt+1 

print”670 dt=";dt 
print”goto 750" 
poke1319,19 
fori=1t04:poke1320+i , 13:next 
poke239,4:stop 
printchr$( 147) :char1,9,20," 
er eingeben ? ( j/n)" 

760 do - 

770 
780 
790 
800 
8in 
820 


;sv$;"," 


weit 


getkeyg$ 

ifg$=" j"then560 
ifq$="n"thenrun 
loop 

restore 
readv$,vn$,n$ 


830 ifv$="00"thenrun 

840 gosub860 

850 goto820 

860 printc1$g6$s1$;v$ 

‚870 printc4$c4$"” tel. ";un$;" / "In 
$ i 

880 chart, BI 20, "in cn weiter b 
itte taste arena" 

890 : 

900 getkeyq$ 

910 : 

920 return 

930 rem gebuehrenerfassung 

940 printcl$g3$". a sie..die 
entfernungszone:...." 

950 printc4$si$rn$" DO "Pf$S1$S1$"or 
ts- und nahgespraeche"” 

960 printc4$s1$rn$” 1 "rf$s1$s1$"en 
tfernung bis SO km" 

970 printc4$s1$rn$" 2 "rf$s1$s1$"en 
tfernung bis...100 km" 

980 printc4A$s1$rn$" 3 "rf$s1$s1$"en 


— ee 


Teledat 


tfernung ueber 100 km”c4$c4$ 
990 inputz:z=int{ z) :ifz>3thenprintce 
2$c2$:g0t0990 

1000 printcl$q3$"..... die uhrzeit:. 
1010 
bis 
1020 


printc4$s1$rn$” 1 
18 uhr” 
printc4$s1$rn$"” 2 
bis B uhr"”c4$c4$ 
1030 inputu:u=sint( u) :ifu>2oru<ithen 
printc2$c2$:g0t01030 
1040 printc1$q3$s1$"” 
RER u" 

I050 printc4$si$rn$” 1 
bis freitag” 

1060 printc4$s1$rn$"” 2 "rf$"” samsta 
g,sonntag und feiertage"c4$c4$. 
1070 inputd:d=int(d) :ifd>2ord<ithen 
printc2$c2$:g0t01070 

1080 n=480:g=720 

1090 ifz=ithenn=45:g=67.5 

1100 ifz=2thenn=20:g=38.571 

1110 ifz=3thenn=12:g=38.571 

1120 e=n > 

1130 ifd=2oru=2thene=g 

1140 printcl$; 

1150 printgq?7$rn$” bei. gespraechsbeg 
inn taste druecken !.."”;rf$ 

1160 getkeya$ 

1170 ti$="000000” 

1180 printcl$s1$"dauer:” 


"rf$"..8 uhr 
"rf$" 18 uhr 
--...den wochent 


"rf$” montag 


1190 printc4$s1$s1$"”........... gebu 
ehreneinheiten” 
1200 printq3$s1$s1$"”......-..... gesp 


raechskosten "” 

1210 t=vallleft$( ti$,2))*3600+vallm 
id$l ti$,3,2))*#60+vall right$( ti$,2)) 
1220 b=int(t/e+1) 

1230 bi=b#.23 

1240 printhe$tabf( B) left$l ti$,2)”.”m 
id$l ti$,3,2)"”."right$l ti$,2) 

1250 printc4$s1$s1$int( b) 

1260 printqg3$s1$s1$int( b1*100+.5)/1 
00” dm ” 

1270 b=0:b1=0 

1280 printrn$; 5 

1290 char1,0,21,”..bei gespraechsen 
de. .taste druecken...."” 

1300 getz$:ifz$=""then1210 

1310 :Cchart, 0,21, rare noch ei 
nmal? (3/0) -»»., >=“. 03. = 

1320: printrf$:do:getkeyz$ 

1330 ifz$="n"then250 

1340 ifz$="j"then930 

1350 loop 

1360 rem===telefondatei=c 16/116/p4 

1370 rem 60671 bytes memory 
1380 rem 03551 bytes programm === 


1390 
1400 
1410 


rem 
rem 
rem 


00119 bytes 
00000 bytes 
02798 bytes 
56532 bytes 


1420 rem 
50000 data00,00,00 


MUSIKER 


Machen Sie einen Synthesizer aus Ihrem Plus/4: 
Supersound macht’s möglich. Ob Sie ‚‚nur“ 
Klavier spielen oder mit sämtlichen Effekten wie 
Meeresrauschen und dergleichen arbeiten wollen, 
mit Supersound kein Problem. Sie können aus um- 
fangreichen Menüs das Programm nach Ihren Wün- 
schen arbeiten lassen und werden bald merken, wie 
einfach Supersound die Tonanimation per Compu- 
ter macht. 

Wenn Sie außerdem auch Interesse an vorgefertig- 
ten Klangmustern haben: Auch diese wurden bei 
Supersound berücksichtigt. Sie können nun alle 
Soundeffekte nachspielen, wie sie bisher nur von 
neuen Telespielautomaten produziert werden. 

Für creative Menschen also genau das richtige. 


2 TELEFONSERVICE © 
Alle Experten der CBM REVUE/COMMODO- 
RE-WELT stehen unseren Lesern jeden Mitt- . 
woch zwischen 16.30 und 19.30 Uhr zur 
Beantwortung aller Fragen unter der Telefon- 
nummer 089/1298013 zur Verfügung. 
Ebenso der Abo- und Kassettenservice. Ein- 
fach anrufen! 089/1298014! 


WAS KOSTET 
IHR AUTO 
WIRKLICH? 


Das Programm erklärt sich Dateien gespeichert wer- 
zum Teil von selbst. Der den, um später wieder mit 
Benutzer kann das Pro- den neuen Daten im Pro- 
gramm an einem von ihm gramm verarbeitet zu 
bestimmten Tag nur be- werden. 

ginnen, wenn er sein 
Kfz an diesem Tag voll- 
getankt hat! Wenn das 
Kfz an diesem Tag nicht 
voll getankt ist, stimmen 
nachher einige Daten 
nicht mehr! 

Die eingegebenen Daten 
müssen als sequentielle 


veariables 
arrays == 
strings 


In den entsprechenden Zei- 
len müssen Sie nur noch 
die Daten Ihres Wagens 
eingeben. Kennzeichen, 
Typ usw. Die genannten 
Daten sind nur Beispiele 
und sind jederzeit veränder- 


bar. 3» 
45 


Supersoumnmd 


10 rem supersound ==========-=====p4 
20 rem (p) cbm revue team = 
30 rem ==========-======2====-mn=22=== 
40 rem (c) by 
SO rem jochen lellesch = 
60 rem = 
70 rem version 3.5 => 
80 rem plus/4 + 1531/1541 = 
.90 rem ========-=-==- == === == =2m222022= 
100 z1$=chr$( 96) 


d1$=chr$( 109) :d2$=chr$( 110) 
forg=1t040:q91$=q1$+z1$:nextgq 
forgq=1t020:q92$=q2$+d2$+d1$:next 


forg=1t020:q93$=q93$+d1$+d2$:next 


senclr:volS 
sound1,917,75:sound2, 810,75 
printgq2$; 
printd1$"s##uuunueuutarartante 
IHRES" GDG, 
1040 printd2S’#u#,.27. suewasee us 
Da Er ##4#"g41$; 
printd1$"### 
LEE TAI ###"42$; 
printd2$”"##...... superso 
4:40, OS 
printd1$"##+ 
ee ee ....###"g428$; 
printd2$"#s#n#......... 
ER Apacne ae KERETGIS; 
printd1$"suenueneeeeeereeen 
RR" ADG, 
1100 sound1,810,75: sound2, 596,75 
1110 printd2g" 


„een eou.e 


KEN EE e arar "18; 

1120 printdi$"*........ ein musikpro 
gramm von........ "d2$; 
WMSNPEINEISSTSR, 2.0 et Er 
Te ##"41$; 

13140 printdtgsTaRt] ,n...: 38er, 
a re #44"d2$; 

1150 printd2$"##..jochen....i 


el1lesch 
1160 printd1$"* 


##"q41$; 


. en 080 ne need 


Ba ee ae a arte Ba ar 


printdig"##eerenrsenuesturenuneeunene 
FERUENEHSHERTGDG; 


1190 sound1,596, 75: sound2, 169,75 
printangrns. 


Wanne en era hie 


“nenne. 


1490 print"..... 8 - 


' 1550 


FE a #E"41$; 


1230 printdi$"#...... (ce) 1986..by j 
. lellesch...... #"42$; 


RL ER #"g2$; 

1270 printd2g"auuuuueseneeeeeenn 
RR GIG; 

1280 printqg3$; 

1290 fori=0t05000:nexti 

1300 rem ##rt#xuu000000# menue # 
1310. x=400 

1320 do 

1330 sound1,x,1:x=x+5 

1340 loopuntilx=900 

1350 sound1,900,50 

1360 senclr:color 1,3:color 0,1:col 
or 4,1 

1370 print:poke 194,1 

1380 print" 
1390 poke 194,0:print 
1400 print:print 

1410 print"....... 1. = 
1420 print 

1430 print”.......2. — 
ekte” 
1440 
1450 
n" 
1460 print 
1470 print” 
1480 


klavier" 


specialeff 


print 


print” kombinatio 


PR Er < ERBE 


_ powerplay" 


....7 joystick s 
ound” 
1500 print:print 

1510 print” bitte taste 
1520 x=900 

1530 do 

1540 sound1,x,1:x=x-5 
loopuntilx=400 
getkeya$ 


ifa$="1"thensound1, 169,5:goto1 


druecken " 


1560 
1570 
640 
1580 
250 
1590 
940 
1600 
800 
1610 
870 
1620 
1630 
1640 
94,1 
1650 


ifa$="2"thensound1,596,5:g0oto2 
ifa$="3"thensound1,810,5:g0t03 
ifa$="4"thensound1,917,5:g0t04 
ifa$="5"thensound1,999,5:g0t06 
goto1i56D 

rem Ft klavier *# 
scnelr :color 1,6:print:poke 1 


print E 


Supersound 


B..B. 
‚B° 
2080 
2090 


8=.B72B22B7. 
print” 
B..B::B..B. 


2100 


2110 


-:B..B..B..B. 


2120 


klavier... 


poke 194,0 
print:print 
input”...lautstaerke (1-8).."; 


ifa<lora>8then 1640 

vola 

print:print 

print"spielen sie mit den tast 


print 
print” 
print 
fori=-1t01000:nexti 

goto2060 

getkeym$ 

ifm$="q"thens=169 
ifm$="w"thens=262 
ifm$=-"e"thens=345 
ifm$="r"thens=383 | 
ifm$="1"thens=215 
ifm$="t"thens=453 
ifm$=-"2"thens=303 
ifm$="y"thens=516 
ifm$="4"thens=418 
ifm$=-"u"thens=571 
ifm$="5"thens=485 
ifm$=-"i"thens=596 
ifm$=-"6"thens=543 
ifm$=-"o"thens=643 
ifm$="8"thens=608 
ifm$="p"thens=685 
ifm$="9"thens=664 
ifm$="$"thens=704 
ifm$=":"thens=722 
ifm$="+"thens=739 
ifm$=";"thens=754 
ifm$=-"#"thens=784 
ifm$=-"s"then2710 

if m$="m"then 1360 
sound1,s,20:sound2, 169,20 
goto1790 

scencir 
printspc( 250) :printspc( 110) :pr 


.., ” 


q bis 


.B: .B.B- Bi BB. .B: BB. Bi 


color 1,1:color O,2:color 4,2 
print” B..B.:B..B..8..B..B..B. 


print” .B..B..B..B..B. 


print” Br Bt By Bu Bi 


Bo Bp B$ B+ B"” 


2130 


print” 


FECFECFECFCEEFECFECFEEFCEFEEFECFCEFEC 


Er” 
2140 
2150 
# 
2160 


#BHAHAHCOH 


2170 
# 8 
2180 
#8 
2190 
# B 
2200 
98 


2210 


B B 
2220 
2230 
e"” 
2240 
2250 
2260 
2270 


2330 
ten 1 
2340 
NEE” 
2350 
2360 
2370 
2380 
2390 
2400 


print chr$( 19) 

printspc(80) :print"” #4 # B # 

ZBAHBEHHH 

print" #4 #8 4# B 

print" # 
AA OH 

print” # 
AA OH 

print” 4 
LE Zi 


print” 1 


je) 
14 » = 


SS u N u N 


[er] 


s 5 * 
print” B 

BB BB 
print chr$( 19) 


print " s= 


BB DIE NRT3ONR 3 


:D :2D Su NS. 
[e*} 


goto179D 

scenclr 

rem #####%% spezialeffekte * 
eolor 1,11,6:color O,1:color 4 


print 
poke 194,1 
print” spezialeffe 


.. 1 |, 102 72 0... 


poke 194,0 

print:print 

print” spielen sie mit den tas 
bis 8 " 

print” die spezialeffekte aus 


print:print 
print”...bitte warten " 
fori=1t02500:nexti 
scnclr 
print 
print” 
print 
print” 
print 
print” 


’ 
. 
’ 
0 
. 
. 
) 


hoch" 


nD 
{1 


tief” 


rausc 


print 
print" 


> 
I) 


„.hoch + rausc 
print 
print” 
print 
print" 


” 
il 


hoch" 


{er} 
ıt 


> rau 


print 
print” 


SQ 
) 


< rau 


print 


Supersoumd 


2540 


print”... 8...=..dreiklang (h 


intereinander)" 


2550 
2560 
2570 
2580 
".a$ 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
...e 
2720 
‚3 
2730 
bye 
2740 
275D 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
ch 
2890 
2900 
2910 
2920 
ce 
2930 
2940 
2950 
2960 
2970 
2980 


(s) 


2990 
3000 
3010 
3020 
3030 


48 


print 
input”...bitte taste druecken 


ifa$="1"then2850 
ifa$="2"then3000 
ifa$=-"3"then3140 
ifa$="4"then3250 
ifa$="5"then3370 
ifa$="6"then3460 
ifa$="7"then3560 
ifa$="8"then3650 
ifa$="9"thenrun 
ifa$="0"thenrun 
ifa$="e"then2710 
goto2580 

senclr:char 1,1,10,” 
n d e" 

color 1,9:color 0,7,5:color4,? 


.u 2.086 


SNnarn Nr ia a a good 


vol6 

sound 1,810,30:sound?,834,30 
sound1,854,30:sound1,864,30 
sound1,881,30:sound1,897,30 
sound1,911,30:sound1,917,275 
x=500 

do:sound2,x,5:x=x-10 
loopuntilx<20 
ceolor1,1:colorO0,2:color 4,13,5 
scencelr 

end 

rem ##a#080400 tief > hoch # 
senclr 


print" asseanraneee tief > ho 


print:print 


input”...tiefste zahl ";a 
input” hoechste zahl ";b 
input” schrittweite (1-50) "; 


print:print"..okay " 

rem ##r#tu#tt schleife *# 
sound1,a,5:3=a+c 
ifa>bthen2970:else2940 
print:print 

input” menue (m) oder speziale 
ifs$="m"then1360:else2380 
scenclr 

rem Kraxenette hoch < tief # 
print 
print" 


print :print 


input” hoechste zahl ";d 
input" tiefste zahl ";e 
input” schrittweite (1-50) "; 
print:print” okay ” 


rem ####0##4##000## schleife # ° 
sound1,d,5:d=d-f 
ifd<fthen3120:else3090 
print:print 


got0o2980 

scncir 

rem ###32##% tjef + rausch *# 
Print”. armen tief + raus 
print:print 


input” rausch zahl (11-1000) 


print:print"” 
sound3,g,600 
x=1 
do:sound1,x,5:x=x+5 
loopuntilx>600 
print:print:goto2980 

senclir 

rem ###3##3#% hoch + rausch *# 


okay "” 


print:print 

input” rausch zahl (1-1000) "; 
print:print" e 
sound3,h, 600 

x=600 ° 
do:sound1,x,5:x=x-5 
loopuntilx<10 
print:print:goto2980 


okay 


"scncelir 


rem ###3303# tief + hoch * 


PIINEM. Sa are uns ah tief + hoc 


print:print 
input”hoechster ton ";i 
input"tiefster ton ";j 
sound1,i,100:sound2, j, 100 
print:print:goto2980 


scnelr 

rem ####4%# rausch > rausch *# 
Brink nassen rausch > 
h ” 


print:print 

input” hoechste zahl 
input” kleinste zahl 
do z 
sound3,k,5:k=k-5 


Supersoumd 


3540 loopuntilk<l 

3550 print:print :goto2980 

3560 scncir 

3570 rem *###*# rausch < rausch *# 

3580 print” 

rausch " 

3590 print:print 

3600 input” kleinste zahl "”;m 

3610 input” hoechste zahl ”;n 

3620 do:sound3,m,5:m=m+5 

3630 loopuntilm>n 

3640 print:print:goto2980 _ 

3650 scnelr 

3660 rem ###tra=4223% dreiklang * 

3670 print 

SBBU PEARL". „urn es dreiklang 
L,3 


RE rausch < 


3690 print:print 
3700 input” c,d,e,f,g,a,h, welcher 
".0$ 

3710 ifo$="c"thenz=810 

3720 ifo$="d"”thenz=834 

3730 ifo$="e"thenz=854 

3740 ifo$="f"thenz=864 

3750 ifo$="g"thenz=881 

3760 ifo$=-"a"”thenz=897 

3770 ifo$="h"thenz=911 

3780 ifz=-810thenx=834 

3790 ifz=-810theny=854 

3800 ifz=-834thenx=854 

3810 ifz=-834theny=864 

3820 ifz=854thenx=864 

3830 ifz=-854theny=881 

3840 ifz=864thenx=881 

3850 ifz=864theny=897 

3860 ifz=-881thenx=897 

3870 ifz=-881theny=911 

3880 ifz=-897thenx=911 

3890 ifz=897theny=929 

3900 ifz=-911thenx=929 

3910 ifz=-911theny=-939 

3920 sound1,2,30:sound1,x,30:soundi1 
:y,45 

3930 print:print:goto2980 

3940 scenclir 

3950 rem #*###t#2#2#33# kombination * 
3960 color 1,16:color OD,1:color 4,1 
3970 poke 194,1 

380 BIINT" un rauen an kombinatio 


3990 poke 194,0 

4000 print:print 

AU1IO print” druecken sie mehrere ta 
sten hinter -" 

4020 print” einander !!!” 

4030 print:print”" bitte warten " 
4040 fori=1t02000:nexti 

4050 scnelr 


tief < ho 


hoch > ti 


rau. + ti 


rau. + ho 


rau. > ra 


rau. < ra 


hell...ra 


dunk...ra 


mitl...ra 


menue"” 


ende" 


print” bitte taste druecken * 


print 

print-. 2. 20.0, q. 
print 

print” 2203; W. 
print 
print”... Ar 
print 

print”. :02200% vr. 
print 

Print "a... t 
print 

print" ons y- 
print 

REINE. neuere inaie u. 
print 

print", =... I: 
print 

BIINET, a sucssnne 0% 
print 

print". ei m. 
print 
Drint";.::: a.8% 
print 

getkeya$ 
ifa$=-"gq"”then4440 


ifa$="w"then4500 
ifa$="e"then4560 
ifa$=-"r"then4590 
ifa$=-"t"then4620 
ifa$=-"y”then4670 
ifa$="u"then4720 
ifa$=-"i"then4750 
ifa$="o"then4780 
ifa$="m”"then1300 
ifa$=-"s"then2710 
g0oto4300 


- 
- 


x=1 

do 
sound1,x,5:x=x+15 
loopuntilx>1000 
goto4300 


x=1000 

do. 
sound1,x,5:x=x-15 
loopuntilx<100 
g0t04300 
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Supersoumd 


sound1,100,75:sound3, 789,75 
goto4300 
sound1,890,75:sound3, 100,75 
goto4300 


x=1000 

do: sound3,x,5:x=x-15 
loopuntilx<30 
goto4300 


x=1 
do:sound3,x,5:x=x+15 
loopuntilx>1000 
got0o4300 


sound1,888,75:sound3, 999,75 
goto4300 


sound1,1,75:sound3, 1,75 
goto4300 


sound1,567,75:sound3,567,75 
goto4300 


REIN SHHAHEREENEER powerplay % 
color 1,13,6:color O,1:color 4 


scnclr 
poke 194,1 
print" powerplay... 


poke 194,0 
print :print 
print”..die tasten..a bis z..s 


ind alle mit" 
4900 print” verschiedenen geraeusch 5490 


kombinationen 


4910 


belegt 
print” sie koennen zwischen 2 


modis waehlen” 


4920 
4930 
4940 
4950 
A960 
4970 
A980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
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TE TTTTT—T—TTTT T T 


print” rauschen - (a) 
print” ton - (b) 
getkeya$ 
ifa$="a”thena=3 3 
ifa$="b"thena=1 


ifa$<>"a"anda$<>"b"then4940 
print:print"” ende 2 
print” menue = 4" 

print” bitte taste druecken " 
getkeya$ 

ifa$="a"thenS5310 
ifa$="b"then5370 
itfa$="c"then5430 
ifa$=-"d"then5490 
ifa$=-"e"then5550 
ifa$=-"f"thenS610 


5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
-5310 
5320 
5330 
5340 
5350 
5370 
5380 
5390 
5400 
5410 
5430 
‚5440 
5450 
5460 
5470 


5500 
5510 


. 5520 


5530 
5550 
5560 
5570 
5580 
S590 
5610 
5620 
5630 
5640 
5650 
5670 
5680 
5690 
5700 
‚5710 


” 


ifa$="g"thenS5670 
ifa$="h"then5730 
ifa$=-"i"thenS790 
ifa$="Jj"thenS850 
ifa$="kK"thenS910 
ifa$="1"thenS5970 
ifa$="m”"then6030 
ifa$="n"then6090 
ifa$="o"then6150 
ifa$="p"then6210 
ifa$="qg”then6270 
ifa$="r"then6330 
ifa$="s"then6390 
ifa$="t"then6450 
ifa$=-"u”"then6S510 
ifa$=-"v"then6570 
ifa$="w”then6630 
ifa$="x"then6690 
ifa$="y"”then6750 
ifa$="z"then6810 
ifa$="3"then2710 
ifa$="4"then1300 

goto5010 

y-1 

x=1020 

do:sounda,x,1:x=x-30 

loop untilx<800 
y-y+l:ify=-SthenS010:else5320 
y-1 

x=1020 

do:sounda,x,3:x=x-50 

loop untilx<800 
y-y+i:ify=5then5010:else5380 
yeah 

x=1020 

do:sounda,x,3:x=x-20 
loopuntilx<800 
y-y+1i:ify=3thenS010:elseS440 
y-1 

x=1020 

do:sounda,x,1:x=x-90 
loopuntilx<800 
y-y+1:ify=8then5010:elseS500 
y=1 

x=1020 

do:sounda,x,10:x=x-80 
loopuntilx<800 
y-y+1i:ify=4thenS010:else5S560 
y=-1 

x=BOD 

do:sounda,x,1:x=x+20 
loopuntilx=1020 
y-y+1:ify=-5then5010:else5620 
y-1 

x=800 

do:sounda,x,1:x=x+5 
loopuntilx=1020 
y-y+1:ify=3thenS5010:elseS68B0 


Supersoumd 


5730 
5740 
5750 
5760 
5770 
5790 
5800 
5810 
5820 
5830 
5850 
5860 
5870 
5880 
5890 
5910 
5920 
5930 
5940 
5950 
5970 
5980 
5990 
6000 
6010 
6030 
6040 
6050 
6060 
6070 
6090 
6100 
6110 
6120 
6130 
6150 
6160 
6170 
6180 
6190 
6210 
6220 
6230 
6240 
6250 
6270 
6280 
6290 
6300 
6310 
6330 


6340 


6350 
6360 
6370 
6390 
6400 
6410 


y-1 

x=8B00 
do:sounda,x,1:x=x+55 
loopuntilx=1020 
y-y+1:ify=7then5010:else5740 
y-1 
x=8B00 
do:sounda,x,6:x=x+20 
loopuntilx=1020 
y-y+1: ify=4thenSD10: else5800 
y=1 

x=B00 
do:sounda,x,4:x=x+70 
loopuntilx=1010 
y-y+1:ify=8then5010:else5860 
y-1 

x=600 

do:sounda,x,1:x=x+50 
loopuntilx=1000 

ysy+1: ify=8then5010: else5920 
y-1 

x=600 
do:sounda,x,4:x=x+25 
loopuntilx=1000° 
y-y+l:ify=5thenS010:else5980 
y=1 

x=600 _ 

do:sounda,x,5:x=x+75 
loopuntilx>940 
y-y+1:ify=Sthen5010:else6040 
y-1 

x=1000 
do:sounda,x,5:x=x-75 
loopuntilx<?700 
y-y+t1l:ify=-5then5010:else6100 
y-1 

x=1000 

do:sounda,x,1:x=x-30 
loopuntilx<600 
y-y+1:ify=-5thenS010:else6160 
y=-1 

x=800 

do:sounda,x,4:x=x-30 
loopuntilx<450 
y-y+t1:ify=-5then5010:else6220 
y-1 

x=450 

do:sounda,x,4:x=x+30 
loopuntilx>800 
y-y+1i:ify=S5Sthen501i0:else6280 
y-1 

x=1020 

do:sounda,x,4:x=x-30 
loopuntilx<600 
y-yti:ify=-5then5010:else6340 
y=-1 

x=1020 

do:sounrda,x,1:x=x-1 


ik.probieren sie 


6910 
” 


6920 
6930 
6940 
6950 
6960 
6970 
6980 
6990 
7000 
7010 
7020 
7030 
7040 


loopuntilx<980 
y-y+1:ify=3then5010:else6400 
y-1 

x=1020 

do:sounda,x,4:x=>x-1 
loopuntilx<995 
y-y+i:ify=3then5010: e1se6460 
y-1 

x=1020 

do:sounda,x,2:x=x-3 
loopuntilx<980 
y-y+1:ify=6then5010:else6520 
y-1 

x=980 

do:sounda,x,2:x=x+3 
loopuntiix>1016 
y-y+l:ify=5thenS010:e1se6580 
y-1 

x=950 

do:sounda,x,1:x=x+1 
loopuntilx=1020 
y-y+t1:ify=3then5S010: e1se6640 
y-1 

x=B00 

do:sounda,x,1:x=x+5 
loopuntilx>900 
y-y+1:ify=S5then5010:e1se6700 
y=1 

x=900 

do:sounda,x,1:x=x-5 
loopuntilx<800 
y-y+1:ify=Sthen5010:else6760 
y=-1 

x=900 

do:sounda,x,4:x=x-5 
loopuntilx<800 
y-y+li:ify=-5then5010:else6820 


rem ##R#0888 Joystick sound *# 
sencelr:print 
PrEnE "7.0 era as ne joystick so 


print ” der joystick macht mus 


print ”"” e = ende..... m = 
x=1 

get a$ 

if a$="e"then2710 
if a$="m”"then1300 
if joy( 1)=i then 

if joy( 1)=2 then 

if joy{ 1)=-3 then 

if joyl 1)=4 then y=383 

if joy( 1)=5 then y=453 

if joyf{1)=6 then y=-S16 

if joy( 1)=7 then y=571 

if joy(1)=B then y-596 

if joyl 1)=128 then 7070 


y=-169 
y=262 
y=-345 


es aus (port 1)" 
menue 
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Supersoumnd a Ze Kfrfz-Wirtschaftık. 


7050 sound x,y,20 } 10 rem kfz wirtschaftlichkeit =c16 

7060 got0o6930 20 rem (p) commodore welt = 

27070 if x=-1 then x=3:goto 6930 30 rem re 

7080 if x=3 then x=1 40 rem (c) ne N s a 

7090 goto6930 50 rem hartm. schulteis = 

9000 rem supersound =============p4 [60 rem Er 

9010 rem 60671 bytes memory ==== [70 rem = 

9020 rem 12141 bytes program ==== {80 rem c16/c116/plus4 + 1531 2 

9030 rem 00000 bytes variables ==== [90 rem ==========-== == === 22222555 
a0 m 00000 bytes arrays ==== e 

EBD En 00000 bytes strings ==== | 100 deffnaul x) =int( (x*100) +0.5) /100 

9060 rem 48530 bytes free ==== [ 110 cd$=chr$( 17) 

9070 rem bei c-16 und c-116 ohne 120 rn$=chr$( 18) :re$=chr$( 28) 

9080 rem kopf und fusszeilen 130 gr$=chr$( 30) :b1$=chr$( 31) 

9090 rem eingeben >speicher< 140 bk$=chr$( 144) :rf$=chr$( 146) 


150 c1$=chr$( 147) :pu$=chr$( 156) 

160 forgq=1t03:0c3$=c3$+cd$:nextgq 

170 cy$=chr$( 159) :gosub2140 

180 printc1l$b1$; :chari,4,3, "dieses 
programm berechnet die "” 

190 char1,4,5,"wirtschaftlichkeit d 
es wagens :" 

200 printre$rn$; :char1,15,7,"ac - h 
s 49” 

210 printb1l$; :char1,15,11,"wagentyp 


220 printgr$rn$; :char1,11,13,"ford 
taunus tunier"” 

230 printre$; :char1,17,20,"taste" 
240 geta$:ifa$=""then240 

250 ifer%=1then2230 

260 printc1$bk$"datum ";:inputda$ 
270 printpu$:char1,9,5,"”"haben sie g 
'etankt ?": 

280 print:print:print:printtab( 8)" 
"sr$rn$"n"rf$"ein/"rn$"v"rf$"oll/"r 
n$"t"rf$"eilweise” 

290 geta$:ifa$<>"n"anda$<>"v"anda$< 
>"t"then290 

300 ifa$="n"thenkd%=1:g0t0410 

310 ifa$="t"thenkd%=1:g0t0340 

320 printre$:char1,8,11,"bei kilome 
terstand :” 

330 inputks:printcd$bk$:g0t0350 

340 printcd$bk$ 

350 printtab(8) ; :input"wieviel lite 
e 75341:31=-313 

360 printcd$cy$ 

370 printtab(8) :input”wieviel dm "; 
dx 

380 printbl$:char1,8,22,"stimmt all 
es ? (3j/n)" 

390 geta$:ifa$<>" J"anda$<>"n"then39 
1) 

400 ifa$="n"thenkd%=0:g0t0260 

410 printcl$re$rn$; :char1,5,2, "wirt 
schaftlichkeitsberechnung” 

420 printgr$rn$; :char1,7,5,"1":prin 


Kfz—-wirtschaftliäichk . 


tbk$rf$; :char1, 11,5, "durchschnittsv 
erbrauch” 

430 printgr$rn$; :char1,7,7,"2":prin 
tbk$rf$; :char1, 11,7, "tankkalkulatio 
nn 

440 printgr$rn$; :char1,7,9,"3":prin 
tbk$rf$; :char1, 11,9, "wagenkosten” 
450 printgr$rn$; :char1,7,11,"4":pri 
ntbk$rf$; :char1,11,11,"daten laden" 
460 printgr$rn$; :char1,7,13,"5":pri 
ntbk$rf$; :char1,11,13,”"daten speich 
ern” 

4970 printgr$rn$; :char1,7,15,"6":pri 
ntbk$rf$; :char1, 11, 15,"ende” 

480 printpy$rn$; :char1,7,17,"bitte 
waehlen sie” 

490 remgetpf$:ifpf$=""then495 

500 rem pf=val(lpf$) 

510 pf=pf+1 

520 ifpf=1then5?70 

530 ifpf=2then600 

540 ifpf=-3then630 

550 ifpf=-4then660 

560 gosub670:g0t0o870 

570 poke3512,45:poke3513,62:poke327 
2,81 

580 poke3352,81:poke3432,81:poke359 
2,81 

590 goto?730 

600 ifkd%=1thenS10 

610 poke3272,45:poke3273,62:poke335 
2,81:poke3592,81 

620 gosub670: goto760 

630 gosub67Q:ifpeek( 3432) =8B6thenS10 
640 poke3432,45:poke3433,62:poke359 
2,81 

650 gotoB10 

660 poke3592,45:poke3593,62:gosub67 
0: g0t0870 

670 ifak%=ithenpoke3272,86 

680 ifbk%=1thenpoke3352,86 

690 ifck%=1thenpoke3432,86 

700 ifdk%=ithenpoke3512,86:ifdv=-üth 
enpoke3272,81:poke3352,81 

710 ifek%=1thenpoke3592,86 

720 return 

730 geta$:ifa$<>"4"anda$<>"6"then?3 
6) 

740 ifa$="4"then1750 

750 goto1130 

760 geta$:ifa$<>"1"anda$<>"3"anda$< 
>"4”anda$<>"6"then?60 

770 ifa$="1"then?410 

780 ifa$=-"3"then1210 

790 ifa$="4"then 1750 

800 goto1130 

BIO geta$:ifaße>"j"anda$<>"2"anda$< 
>" Mr" anda$<>"4"anda$<>"6"thenBid 


820 ifa$="1"then1410 

830 ifa$="2"then910 

840 ifa$="3"then1210 

850 ifa$="4"then1750 

860 goto1130 

870 geta$:ifa$=""then870 

880 ifa$<>"1"anda$<>"2"anda$<>"3"an 

da$<>"4"anda$<>"5"anda$<>"6"then870 

890 a%=valla$) 

900 ona%goto1410,910, 1210, 1750, 1540 
‚1130 £ 

910 printcl$re$:charl,12,2,"tankkal 

kulation” 

920 printbl$:char1,4,5,"was haetten 
sie gerne berechnet ?"” 

930 print:print:printpu$tab(?)rn$"”k 
"rf$"”m / "rn$"1"”rf$"iter” 

940 geta$:ifa$<>"kK"anda$<>"1"then94 

1) 

950 ifa$="1"then1020 

960 printgr$:char1,5,10,"fuer wievi 

el liter" 

970 inputi E 

980 ak=(i/gd)*100 

990 ak=fnauf ak) 

1000 print :print:printbk$"damit kom 

men sie ca. "ak”km weit." 

1010 goto1100 

1020 printgr$:char1,5,14,"fuer wiev 

iel km” 

1030 inputkn 

1040 al={ gd/ 100) *kn 

1050 al=fnaul al) 

1060 ap=1p*al 

1070 ap=fnauf ap) 

1080 printcd$bk$”"sie brauchen dafue 

r ca."al"liter." 

1090 printcd$"( ="ap”"dm )" 

1100 printyu$:char1,16,22,"taste" 
1110 geta$:ifa$=""then1110 

1320 pf=pf-1:bk%=1:goto410 

1130 ifek%=i1then1200 

1140 printcl1$bk$; :char1,0,3,"das wa 

ere aber nicht klug,da sie die da-" 
1150 printcd$"ten,die fuer die stat 
istik wichtig sind, "cd$tab( 10) "nich 
t speichern !!!” 

1160 printpu$; :char1,4,16,"wollen s 
ie noch einmal zurueck ?* 

1170 printcey$;:char1,15,22,"”t j /n 
E“ 

1180 geta$:ifa$<>" j"anda$<>"n"theni 
180 

1190 ifa$=" j"thenpf=pf-1:goto410 
1200 printcl$bk$:colorO,2:color4,?, 

6:end 


1210 printcl$re$tab( 14) "wagenkosten 
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1220 printcd$cd$bk$tab( 9) "haben sie 
nebenkosten?"” 


1230 printced$cd$yu$tabl 1S)"t 3 / n 


1240 gp=-aa:gk=bb:gp=-gp+dx 
1250 geta$:ifa$<>" j"anda$<>"n"then! 


1260 ifa$="n"then1i300 

1270 printcd$gr$"nebenkosten :"cd$ 
1280 input”dm ";nk 

1290 gp=>gp+tnk :goto1310 
1300 printed$cd$ 

1310 ifgk=0then1340 

1320 pk=gp/gk 

1330 pk=fnauf( pk) 

1340 printcd$b1l$"ihr Kfz. 
nen pro km :"pk”dm"” 

1350 printed$cy$"ihnen hat der wage 
n schon"”gp"”dm” 

1360 printcd$"ingesamt gekostet !!! 
" 


kostet ih 


1370 printpu$:char1,16,22,"taste” 
1380 geta$:ifa$=""then1380 

1390 ifck%=1thenpf=pf-1 

1400 ck%=1:goto410 

1410 printci$re$; :char1,9,1,"durchs 
chnittsverbrauch"” 

41420 printbk$:char1,3,3,”"der durchs 

chnittsverbrauch betraegt : 

1430 print:print:printdv:char1, 10,5 
‚"lÄiter auf 100 km" 

1440 ifkd%=1orak%=1then 1460 

1450 gd=gd+tdv:ei=ei+i 

1460 gv=gd/ei 

1470 gv=fnau(lgv) L 

1480 print :print:print:printgr$"”der 
gesamtdurchschnitt liegt bei"”:prin 
t 

1490 printcd$gv"liter auf 100 km" 
41500 printcy$:char1,16,22,"taste" 
1510 geta$:ifa$=""then1510 

1520 ifak%=-1orkd%=-1thenpf=pf-1 

1530 ak%=1:goto410 

1540 printc1l$cd$re$tabf 12)"daten sp 

eichern"” x 

1550 printbk$:char1,9,5,"”datenband 
einlegen!!!” 

1560 printgr$:char1,16,10,"taste"” 
1570 geta$:ifa$=""then 1570 

1580 printpu$:chari,9,10,"daten wer 

den gesichert” 

1590 print:print:print 

1600 open1,1,1 

1610 printf#i1,gp;chr$( 13); 

1620 print#1,gk;chr$( 13); 

1630 print#1,gd;chr$( 13); 

1640 print#1,ei;chr$( 13); 

1650 print#1,da$;chr$( 13); 
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1660 print#1,ks;chr$( 13); 

1670 print#1,1li;chr$( 13); 

41680 print#1,dv;chr$( 13); 

41690 print#1,il;chr$( 13); 

1700 print#1,dx;chr$( 13); 

1710 print#1,kk;chr$( 13); 

1720 close 

1730 ifff=-0then1200 

1740 ek%=1:goto410 

1750 printel$re$; :char1,14,3,"daten 
laden" 

1760 printbk$; :char1,9,5,"datenband 
einlegen!!!” 

1770 printgr$:char1, 16, 10,"taste" 
1780 geta$:ifa$=""then1780 

1790 printpu$; :char1,10,10,"daten w 

erden geladen" :print:print 

1800 open1,1,0 

1810 input#1,aa,bb,cc,dd,ee$,kk,gg, 
hh,ii,jj,kk 

1820 closei 

1830 printc1$bk$"diese angaben sind 
vom...”ee$ 

1840 printed$cd$re$"seit verwendung 
dieses programms, ...":printed$"sin 
d sie" 

1850 printcd$bb”km gefahren.” 

1860 printc3$bl$"ihr wagen hat sie 
bis zu diesem zeit- ":printcd$"punk 
ge 

1870 printcd$aa"dm gekostet.” 

1880 printgr$:char1,16,22,"taste"” 
1890 geta$:ifa$=""then1890 


.1900 printcl$cd$bk$"der letzte durc 


hschnittsverbrauch lag” :print 

1910 printcd$"bei"”hh”"liter auf" 
1920 printced$"100 km.” 

1930 1p=jj/ii 

1940 ip=fnau( 1p) 

1950 printced$cd$gr$"der kraftstoffl 
iterpreis betrug"1ip”"dm." 

1960 printed$cd$re$"nun geben sie w 
eitere daten ein!!!” 

1970 printcy$:char1,16,22,"taste” 
1980 ifkd%=1then2040 

1990 li=li+gg 

2000 di=ks-ff:bb=bb+di 

2010 dv=(1i/di)*#100 

2020 dv=fnauldv) 

2030 1i=0:kk=0:goto2070 

2040 ifkk=Othenkk=1:got0o2060 

2050 li=li+gg 

2060 dv=hh:ks=ff 

2070 gd=cc:ei=dd 

2080 ifds=Othenil=ii:dx=jj:goto2110 
2090 ip=dx/il 

21400 Ip=fnaullp) 

2110 geta$:ifa$=""then2110 


mm —  —— 


Kfz-wirtschaftlichk. 


2120 
2130 


ifdk%=1thenpf=1 
dk%=1:g0t0410 

2140 colorD,2,5:color1,2,5 
2150 printc1$bl$rn$:char1,5,3 
schaftlichkeitsberechnung" 
2160 printgr$:char1,16,5,"(c) 1985” 
2170 char1,11,5,"hartmut schulteis"” 
21380 printpu$:char1,0,8,"kurze erla 
euterungen zu diesem programm?” 
2190 printcy$:char1,15,20,”"t 3 /n 


‚"wirt 


geta$:ifa$<>" j"anda$<>"n"then?2 


ifa$="n"thenreturn 
er%=1:return 

printcl$re$"” benutzen sie das 
programm zum 1. mal ? ”; 

2240 printed$cd$ey$tabl 16) "( 3 / n 
y" 

2250 geta$:ifa$<>"j  ERIREER ERBE 
250 

2260 ifa$="n"then2370 

2270 BEFPERORRHEDEN Saba ":inputd 
a$ 

2280 printed$odßgr®” bet kilometerst 
and :"cd$ 

2290 inputks:printcd$bk$ 

2300 input”wieviel liter ";il 

2310 printcd$cy$ 

2320 input”wieviel dm ";dx 

2330 printcd$cd$b1$”........ stimmt 
alles ?..(j/n)" 

2340 geta$:ifa$<>" j"anda$<>"n"then2 
340 

2350 ifa$="n"thenprintcl$cd$cd$:got 
02270 

2360 g0t01540 

2370 rem erlaeuterungen 


programmteil nochmal" :printcd$ 


2490 printcd$"anrufen, 


wenn sie gla 


uben,eine korrektur"” 


2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 


got0o260 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 


19967 
07374 
00000 
00000 
00000 
12593 


kfz wirtschaftlichkeit c 
bytes 
bytes 


printcd$"vornehmen zu muessen. 


printced$cd$b1$tab( 18) "taste” 
geta$:ifa$=""then2520 


memory 

programm 
variables = 
arrays = 
strings = 
free (0) = 


FOTO 


Ein Programm für den 


- „Profi-“ und Hobbyfoto- 


grafen, der mit den Be- 
griffen Schärfentiefe, 
Entfernungsblendenein- _ 
stellung, Abbildungsmaß- 
stab, Vorsatzlinsen, Farb- 
temperatur, Blitzberech- 
nung und Tabellen etwas 
anfangen kann. 

Aus diesen Menüpunkten 
kann zu Beginn des Pro- 


grammes ausgewählt wer- 
den. Sodann fragt das 
Programm nach.den ent- 
sprechenden Daten, z.B. 
Brennweite, und rechnet 
dann die gewünschten 


- Ergebnisse selbständig aus. 


Weiterer Erklärung bedarf 
es eigentlich nicht, dem 
fotoversierten Anwender 
erklärt sich dieses Pro- 
gramm von selbst. 


ENGLISCHE 
VERBEN 


2380 printcl$re$"”..."rn$"erlaeuteru 
ngen”rf$ 

2390 printc3$gr$"es wird berechnet 
gesamt- und tankfuel-"” 

2400 printced$"lungdurchschnittsverb 


Bildschirm aus. Für ein 
neues Verb muß eine be- 
liebige Taste gedrückt 
werden, dann wird ein 
neues Verb abgefragt. Nach 


Das Programm gibt Ihnen 
ein englisches Verb in der 
deutschen Übersetzung. 
Sie müssen nun der Reihe 
nach dessen Stammformen 


rauch, tankkalkula-"” Sana ch a ae en = 
j rer . eingeben. Nach jeder Ein- stellt der C- re Fehler- 

a ee u gabe muß >RETURN< auotsnachianzu.aer 

esamt und pro km":printc un er chenden Punkten (685) 


und errechnet die Schul- 
note, 


gedrückt werden. Sind alle 
drei Stammformen einge- 
geben, gibt der C-16 die 
Musterlösung auf dem 


literpreis"” 

2420 printc3$b1$tab( 18) "taste" 
2430 geta$:ifa$=""then2430 

2440 printc1l$pu$”"symbolerklaerung : 


COMMODORE-WELT: 
. WIRKLICH 


2450. printcd$b1$"->"bKk$" tipvorschl 
ag vom computer" 
2460 printcd$pu$"Qa"bk$" 


nicht anwa 


ehlbar"” -n 
2470 printed$cy$”V"bk$" schon ange UNABHANGIG 
waehlt" 


2480 printcd$gr$”"sie koennen einen 
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u... 


310 


Einstellung” 


320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 


{c) by . 
bernd weilte = 


40z/ascii = 
plus 4/c166+ 1571/1541/1530= 


printchr$( 014) 
c4$=chr$( 017) :c1$=chr$t( 147) 
re$=chr$( 028} :b1$=chr${ 031) 
rn$=chr$( 018) :rf$=chr$( 146) 
2z2$=chr$( 042) 
forg=1to0o10:qga$=qa$+cA$:nextgq 
forgq=1t03:93$=q93$+c4$:nextgq 
forgq=1t040:gb$=gb$+zz$:nextgq 
ze=2035: sp=2036 : cu=65520 
wd$="Weitere Daten ? ( J/n)" 
wt$="Bitte warten" 
bw$="Bitte waehlen Sie" 
printcl$gb$; 

print"* 


nern ee“ 


printgb$; 
print 
print 
print" (1) 
print 
print" (2) 


Schaerfentiefe..." 


Entfernungs -Blenden 


print 
print" (3) 
print 
print” 
print 
print" 
print 
print” 
print 
print" 
print 
print" 
print 
print"”....Bitte waehlen sie das 


Abbildungsmassstab" 


(4) 


Vorsatzlinsen....“ 


(5) 


Farbtemperatur..." 
(6) 


Blitzberechnung.." 


(7) Tabelden. ..: „=: ” 


(8) 


Modul aus” 


460 
470 
480 
490 
51518] 
510 
s20 
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geta$:ifa$=-""then460 
ifs$=-"1"thenS60 
ifa$="2"then1080 
ifa$=-"3"then1310 
ifa$="4"then 1760 
ifa$=-"5"then2650 
ifa$=-"6"then1980 


800 


860 printc4$"..... 


en q — 
530 ifa$="7"then3010 

540 ifa$="8"thenend 

550 goto460 

S60 printc1l1$ 

570 print".........Schaerfentiefent 
abelle......... 2 


’ 
580 print"”..Zerstreuungskreisdurchm 
esser in mm":print:inputc$ 
590 c=val(c$) 

600 c=c/1000 

610 print:print"örennweite in mm":p 
rint:inputf$ 

620 f=val(f$) 

630 f=f/1000 

640 print:print"Gegenstandsweite in 
m":print:inputg$:printc1$ 

650 g=vallg$) 

660 ifg>fthen?10 

670 printcA$re$"”...:.Bedingung"”b1$ 
680 printc4$rn$"...Gegenstandsweite 
..”.als Brennweite..."”; 
690. printrn$" . 1... seits nicht erf 
VELltl...n ee ":rf$ 

700 print” Neuer Wert” :inputg$ 

710 g=-vallg$) 

720 w=sqr( 2) 

730 b=1 

740 fori=1toi0 

750 h=f#f/(b*#c) 

760 k=h*#g/(h+g-F) 

770 ifh+f>gthen890 

780 b=int((b+.05)*10)/10 

790 h=int( (h+.05)*1000) /1000 
k=int((k+.05) *1000) /1000 
1=int((1+.05)*1000) /1000 

820 pokeze,3:pokesp, 10:syscu 

830 print"Blende”; :printtab( 28) ; :pr 
intusing”#A.#4";b 

840 pokeze,6:pokesp,4:syscu 

850 print"Hyperfokale Entfernung "; 
:printusing"AAH.AHHH”;h;:print" m" 
..minimale Entfer 
nung ";:printusing "AHA. AHHH”;k;:pri 
nt” m" 

870 printc4A$"....... maximale Entfer 
nung ";:printusing"AH#.#AAH”;1;:pri 
nt” m" 

880 goto1000 

890 1=h#g/{h-g+f) 

900 b=-int((b+.05)*10) /10 

910 h=int( (h+.05) #*1000) /1000 

920 k=int( (k+.05) 1000) /1000 

930 1=int( (1+.05)*1000) /1000 

940 pokeze,3:pokesp, 10:syscu 

950 print"Blende"; :printtabf 28) ;:pr 
intusing"”##.#4” ;b 

960 pokeze,6:pokesp,4:syscu 

970 print"Hyperfokale Entfernung "; 


’ 


810 


— nn nn nn nn. 
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:printusing”##A.AHHH” ;h; print” m” 
980 printc4A$”....... minimale Entfer 
nung ";:printusing "HAAR .AHHH”;Kk;:pri 
nt” :m" 

990 printc4$” 
nung "” 
nt” m" 
1000 b= 
1010 
1020 
1030 
1040 
1050 
1060 


Be ee nie maximale Entfer 
;‚ :printusing "AHA. HAHA” ; 1; :pri 


b#w 

char1,12,20,wt$ 
fort=1t02000:next 
char1,12,20,wd$ 
geta$:ifa$=""then1040 

ifa$=" j"thenprintcl$:goto500 
ifa$="n"then220 

1070 goto1040 

1080 printc1$gqg3$” Optimale Entfernu 
ngs Blendeneinstellung"” 

1090 eineuii®, Zunwirgnine D 
urchmesser in mm" 

1100 print:inputc$ 

1110 c=vallc$) :c=c/1000 


71120 printc4$"” Brennweite in mm”:in 


putf$:print 

1130 F=vallf$) :#=#/1000- 

1140 print:print” Minimale Entfernu 
ng in m":inputk$:k=val(k$) 

1150 print:print” Maximale Entfernu 
ng in m”:input1$:1=val(1$) 


1160 g=2#k#1/(k+l) 

1170 h=( 2#K#1-F#lk+1)) /UL-K) 

1180 b=f*#f/Ch*c) 

1190 g=-int((g+.005)*100) /100 

1200 h=int( (h+.005) *100) / 100 

1210 b=int((b+.05)*#10)/10 
1220 printc1$c4$” Optimale Enfernun 
ee ":g"m”:print 

1230 print:print” Hyperfokale Entfe 


rnung =";h”m":print 

1240 print:print” Mindest Blendenwa 
hl....=-";b:print 

char1,10,20,wd$ 
geta$:ifa$=""then1260 
ifa$="j"then1080 
ifa$="n"then220 

goto1260 

rem abbildungsmassstab 

1310 printc1$q3$"”.......-- Abbildung 
smassstab" 

1320 printc4$"”. 
n mm eingeben.” 
1330 printc4$"...... Was soll berech 
net werden?” 

1340 printc4$ 


.„.Alle Masse bitte i 


1350 printc4$"”.......... {1) Abbildu 
ngsmassstab” 

1360 printcA$"”.......... (2) Auszugs 
verlaengerung” 

1370 printcA4$”..........- (3) Brennwe 


ite" 
1380 
nue"” 
1390 
1400 
1410 
1420 
1430 
1440 


printe4$".- -..2.:..=. (4) Hauptme 
charı,10,20,bw$ 
geta$:ifa$=""then1400 
ifa$="1"then1460 
ifa$="2"then 1560 
ifa$="3"then 1660 
ifa$="4"then220 

1450 goto1400 
1460 printc1$q3$” 
ab” :print print 
1470 printc4$” Brennweite"”:print:in 
putbr$:br=val(br$) 


Abbildungsmassst 


. 1480 printc4$"” Auszugsverlaengerung 


":print:inputas$:as=vallas$) 

1490 ab=as/br. 

1500 printe4$” Abbildungsmassstab”: 

print:print:printtab( ?) ;ab": 1” 

1510 char1,10,20,wd$ 

1520 geta$:ifa$=""then1510 

1530 ifa$="3j"then1460 

1540 ifa$="n"then?300 

1550 goto1510 ö 

1560 printc1$qg3$” Auszugsverlaenger 

ung” :print:print 

1570 printc4$” Brennweite" 

putbr$:br=val(br$) 

1580 printc4$” Abbildungsmassstab": 

print :inputab$:ab=vall( ab$) 

1590 as=br*ab 

1600 printc4$"” Auszugsverlaengerung 

":print:printtabf{ 7) ;as"mm” 

1610 char1,10,20,wd$ 

1620 geta$:ifa$=""then1620 

1630 ifa$="j"then 1560 

1640 ifa$=-"n"then1300 

1650 goto1620 

1660 printcl1$q3$”.. 
.":print:print 

1670 printc4$” Auszugsverlaengerung 

”":print:inputas$:as=vallas$) 

1680 printc4$” Abbildungsmassstab”: 

print:inputab$:ab=val( ab$) 
1690 br=as/ab 

1700 printc4$” Brennweite" 

inttab( 7?) ;br”"mm” 

1710 char1,10,20,wd$ 

1720 geta$:ifa$=""then1720 
1730 ifa$="j"then 1660 

1740 ifa$="n"then1300 

1750 goto1720 = 
1760 printci1$ 

770 print” .- 50400 Linsenkombinat 

ionen”:print 

1780 printc4$”Aus Dbjektivbrennweit 

e und Vorsatzlinse"” 

1790 printc4$"”....wird das Gesamtsy 3 
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:print:in 


.Brennweite.... 


:print:pr 


Foto 


stem errechnet.” 

1800 char1,10,20,wt$ 

1810 fort=1t02000:next 

1820 printchr$( 147) 

1830 print:print" Brennweite in mm" 
:print :inputf 

1840 print:print"” Brechkraft in Dio 
ptr.":print:inputd 

1850 f1=( 1/f)#1000:f2=f1 

1860 gb=fi+d:gf=1/gb:d2=1/d 

1870 printcl$ 

1880 print:print"” Brennweite..... 2 
"mm =";f2”"Dioptrien" 

1890 d2=int( ( d2+.0005) #1000) /1000 
1900 print:print"” Brechkraft....."; 
d"Dioptrien =";d2"mm" 

1910 gf=int( (gf+.0005) #1000) / 1000 
1920 print:print" Gesamtsystem..."; 
gb”"Dioptr.=";gf"mm" 

1930 char1,10,20,wd$ 

1940 geta$:ifa$=""then1940 

1950 ifa$="j"then1820 

1960 ifa$="n"then220 

1970 goto1940 


1980 printcl$:print"......... Blitzl 
ichtberechnungen......... ” 

1990 print 

2000 print"....... Was soll berechne 


t werden?” :print 
2010 print 

2020 print" (1) Blitzentfernung":pr 
int 

2030 printc4$" (2) Blitzentfernung 
bei Nahaufnahmen" :print 

2040 printc4$" (3) Blendenzahl":pri 
nt ae 

2050 printc4$" (4) Menue" 

2060 print 

2070 char1,13,20,bw$ 

2080 geta$:ifa$=""then2080 

2090 ifa$="1"then2140 

2100 ifa$="2"then2230 

2110 ifa$="3"then2530 

2120 ifa$="4"then220 

2130 goto2080 

2140 printc1l$q3$" Leitzahl d.Blitze 
s":print:inputle 

2150 print 

2160 printc4$” Blende" 
1 

2170 be=le/bl 

2180 printc4A$" Entfernung Blitz > 
Motiv ="be"m 

2190 char1,13,20,wd$ 

2200 geta$:ifa$=""then2200 
2210 ifa$=" j"then2140 

2220 ifa$="n"then1980 

2230 printc1$:print:printc4A$"”. 
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:print:inputb 


.Was 


soll errechnet werden?" 

2240 print:print:print:printc4$"” "” 
;:printrn$"E"rf$"ntfernung” 

2250 printc4$" ";:printrn$"B"rf$"1 

ende" ag m 

2260 char1,13,20,bw$ 

2270 geta$:ifa$=""then2270 

2280 ifa$="e"then2410 

2290 ifa$="b"then2310 

2300 goto2270 

2310 printel$:printc4$" Entfernung" 
:print:inputbe 

2320 printc4$" Leitzahl":print:inpu 

tle 

2330 printc4$"” Abhildungumanast: "pn 

rint:inputab 

2340 bl=1le/be/( ab+1) :bl=-int((b1l+.05 

)#10) /10 

2350 printc4$” Blende ="bl:print 

2360 char1,13,20,wd$ 

2370 geta$:ifa$=""then2370 

2380 ifa$=" j"then2310 

2390 ifa$="n"then1980 

2400 g0t02370 

2410 printc1$q3$" Leitzahl d.Blitze 
":print:inputle 

2420 print 

2430 printc4$" Blende” 
ı 

2440 printc4$" Abbildungsmasst.":pr 
int :inputab 


:print:inputb 


2450 be=1le/(bil*(ab+1)) 


2460 be=int((be+0.005) #100) /100 
2470 printc4$" Entfernung Blitz > 
Motiv ="be"m 

2480 char1,15,20,wd$ 

2490 geta$:ifa$=""then2490 

2500 ifa$="j"then2230 

2510 ifa$="n"then1980 

2520 goto2490 

2530 printc1$gqg3$" Blitzentfernung": 
print :inputbe 

2540 print 

2550 printc4$"” Leitzahl":print:inpu 
tle 

2560 print 

2570 bil=le/be 

2580 printc4$" Blende =";b1l 

2590 char1,13,20,wd$ 

2600 geta$:ifa$=-""then2600 

2610 ifa$="j"then2530 

2620 ifa$="n"then1i980 

2630 goto2600 

2640 rem*farbtemperatur* 


2650 printc1$q3$"......-.-..-.. Farbt 
emperatur" 

2660 printq3$” Berechnung der Farbt 
emperatur nach Ein- "; 


——— nn 
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2670 printce4$”..gabe von 2 Werten.W 
enn kein Wert vor-"” 

2680 printc4$"”......... handen, dann 
DO eingeben.” 

2700 fort=1t02000:next 

2710 printc1$qg3$"” Farbtemperatur de 
r Beleuchtung." :print:inputa$:a=val 
(3$) 

2720 ifa<Othen2710 

2730 printc4$c4$"” Farbtemperatur de 
s Filmes":print:inputb$:b=val(b$) 
2740 ifb<Othen2730 

2750 ifa+b=-DOthen2710 

2760 printc4$”....Korrektureigensch 


aft des Filters in";:print c4$”...M 


ired" 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 


print:inputk$:k=val(k$) 
ifk<>0then2800 
ifa#b=-0then2760 

c=1000000 

ifa<>Othen2850 

a=c#b/( c+k*b) 

a-int(a+.5) 

goto2910 

ifb<>0then2890 

b=c*#a/(c-k%a) 

b=int(b+.5) 

goto2910 

k=c#[ b-a) /la*b) 

2900 k=int(k+.5) 

2910 printc1$q3$"” Ausgangs Farbtemp 
eratur:”;a 

2920 printc4$” Filmfarbtemperatur:. 
aa ID 

2930 printc4$"” Filterwert.....-... " 
;k” Mired” 

2940 char1,3,15,"Filterwert mit - 
=roeti. Filter(KRA)” 

2950 char1,3,17,"Filterwert mit + 
=blauer Filter(KB)" 

2960 char1,15,20,wd$ 

2990 geta$:ifa$=""then2970 


2980 ifa$="j"then2710 

2990 ifa$="n"then220 

3000 g0t02970 

3010 printc1$c4$gb$; 

3020 print"*#.........- EEE 
+". 

a m Bir Wie Se wu we . 

3030 print"”#.......»e.r-..0r.. Tabellen 
#". 

ee wre ee he 

3040 print"#...--„- saw sasaichenanen 

nn. en une *" 

3050 printgb$; 

3060 printgq3$ 

3090 print”. ..:..:°.-- (1) Filterda 

ei :::=” 

3080 printq3$ 

3090: print"...“..=...... {2) Lichttab 


za. Fr} Zu 
elle...” 

3100 geta$:ifa$=""then3100 

3110 ifa$="1"then3140 

3120 ifa$="2"then3570 

3130 goto3100 

3140 printc1$c4$gb$; 

3350 print, ass nme een er see 
Rare Eee *. 

3450 DTINEE.. 0. ee Filterdat 
a er 

SIZDAÄDRFINET Ha eat ae 
ge Bee ea EEE 

3180 printgb$; 

3190 printq3$” Sie koennen irgend e 
inen Wert eingeben” 

3200 printc4$"”.......... Sei es der 

Miredwert” : 

3210 printea$"..... wen res ode 
r" 

3220 printc4$"”..der Korrekturfaktor 


(in 
3230 
3240 
3250 
3260 


KB oder KR)” 
char1,10,20,wt$ 
fort=1t02000:next 
goto3310 7 
char1,13,20,wd$ 


3270 getx$:ifx$=""then3270 

3280 ifx$="j"then3310 

3290 ifx$="n"then220 

3300 g0ot03270 

3330 printcl$ 

3320 line=3440:restore:print:chari, 
10,5," Suchbegr.":print:inputk$ 
3330 1=1en(k$) 

3340 printc1$c4$ 

3350 reada$:line=line+10 

3360 ifa$="$”"thenprint :goto3260 
3370 fori=1tolen( a$) 

3380 ifmid$( a$,i1,1)=-kK$then3410 
3390 nexti 

3400 goto3350 

3410 char1,10,5,3$:char1,10,20,wt$ 
3420 fort=1t02000:g0ot03340 

3430 data” KR 2 + 18 Mired"” 
3440 data” KA 2.5 + 27 Mired” 
3450 data” KR 3 + 35 Mired" 
3460 data” KA 6 + 50 Mired” 
3470 data” KR 9 + 81 Mired"” 
3480 data” KR 12 +112 Mired"” 
3490 data” KR 15 +131 Mired" 
3500 data” KB 2 - 18 Mired" 
3510 data” KB 3 - 32 Mired" 
3520 data" KB 6 - 45 Mired” 
3530 data” KB 9 - 81 Mired"” 
3540 data” KB 12 -112 Mired" 
3550 data” KB 15 -131 Mired” 
3560 data$ 

3570 printc1l$; 

3580 print 
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3590 print 

3600 print"”......2:...3:%. Farbtempera 
kur...” 

3610 print 


3620 print", 22000 nee verschieden 


3630 print 
SBABDLDITINEN neuere ee a Lichtquell 


3650 print 

3660 print 

3670 print 

3680 print"”.....-..-.. Angaben erfolg 
en in” 

3690 print 

3200; print”. „near "rn$"K"rf$"e 
lvin und "rn$"M"rf$”"ired y 

3710 print 

3720: print" ses, ausserdem d 


3730 print 

320 print" cn seines Filtertyp in 
KR+KB..” 

3750 print 

3760 print"”..Alle Angaben beziehen 
sich auf Tages-" 

3770 print 

S3780,print":..:2200M 3. lichtfil 
m” 
3790 
3800 
3810 
3820 
3830 
3840 


print 

char1,10,22,wt$ 
fort=1t02000:next 

printcl$; 

print 

BETDENT  KEPZU 1 ar ® 
3850 print 

3860 print” 
Filt.= 
3870 
3880 


1900Kelvin...S26Mired. 
2#KB15" 

print 

print” Lampe..40Watt........ = 
3890 print . 

3900 print” 2600Kelvin...385Mired. 
Filt.= KB15+KB9"” 

3910 print 

3920 print" Lampe..75Watt........ m 
3930 print ® 

3940 print” 2800Kelvin...357Mired. 
Filt.= KB15+KB6" 

3950 print 

3960 print" Lampe 100Watt........ = 
print 

print" 2900Kelvin. 
Filt.= K815+KB2" 


..345Mired.. 


3990 print 

4000 print" Projektor Lampe Hochvol 
Er 

4010 print 

4020 print" 3000Kelvin...333Mired.. 


a 
Filt.= KB15+KB2" 

4030 print 

4040 print 


ee ERS E EG RE Be 

4060 fort=1t02000:next : 

4070 printcl1$; 

4080 print 

4090 print" Projektor Lampe Halogen 
” 


4100 print 

4110 print” 3400Kelvin...294Mired.. 
Filt.= KB12* 

4120 print 

4130 print” Halogenlampe Hartglas" 

4140 print 

4150 print" 3200Kelvin...313Mired.. 
Filt.= KB1S" 

4160 print 

4170 print” Halogenlampe Quarzkolbe 
n ® 

4180 print 

4190 print” 3400Kelvin...294Mired.. 
Filt.= KB12" 

4200 print 

4210 print" Nitraphotlampe. .500W/27 
Im "” 

4220 print 

4230 print" 3200Kelvin...313Mired.. 
Filt.= KB15S"” 

4240 print 

4250 print” Nitraphotlampe. .SO00W/34 
Im * 

4260 print 

4270 print” 3400Kelvin. 
Filt.= KB12" 

4280 print 

4290 print 

ASUU PEINET Te een >33." 
4310 fort=1t02000:next 

4320 printcl$; 

4330 print 

4340 print" 
4350 print 

4360 print” 
Filt.= KB9" 
4370 print 

4380 print” Mondlicht............ ® 
4390 print 

4400 print" 
Filt.= KB9" 
4410 print 

4420 print" 
4430 print 

4440 print" 
Filt.= KB3" 
4450 print 

4460 print" 
4470 print 


..294Mired.. 


Blitzlampen weiss...." 


3800Kelvin...263Mired.. 


4000Kelvin...250Mired.. 


Morgen/Abend....... es 


4700Kelvin...213Mired.. 


Elektronenblitz 2 


Dr ze 


Foto = 857 — Englische Verben 


4480 print” S500Kelvin...182Mired.. 


Filt.= 0” 

4490 print 

4500 print” Sonne ({ 10-14Uhr)..... ” 
4510 print 

4520 print” S500Kelvin...182Mired.. 
Filt.= 0" 

4530 print 

4540 print 

BESU print". area ER > 
4560 fort=1t02000:next 

4570 printcl1$; 

4580 print 

4590 print” Blitzlampen blau..... " 
4600 print 

4610 print” 5500Kelvin...182Mired.. 
Filt.= 0" 

4620 print 

4630 print” Leicht nebliges Wetter" 
4640 print 

4650 print" 8400Kelvin...119Mired.. 
Filt.= KRA6” 5 

4660 print 


4670 print” Licht vom blauen Himmel 


(im Schatten)” 
4680 print 
4690 print"12000Kelvin....83Mired.. 
Filt.= KR12” 
4700 print 
4710 print" Licht vom blauen Himmel 
im Gebirge” 
4720 print 
4730 print” (im Schatten)........ " 
4740 print 
4750 print"18000Kelvin....56Mired.. 
Filt.=- KA1S" 
4760 print 
4770 print 
4780 print 
4790: BrINHE" 50 nase 2, 
4800 fort=1t02000:goto220 
4810 rem foto 


4830 rem 013372 bytes programm 


4840 rem 000105 bytes variablen 


4850 rem 000000 bytes strings 


4860 rem 000000 bytes arrays 


4870 rem 046364. bytes free(D) 


PR 


4890 rem 


=__ = mm mo ze =msceeozzmmoeom= 


10 rem verben englisch ======== 
20 rem (p) : commodore welt 


40 rem (c) 
SD rem h-j turban 


70 rem version 3.5 40z/ascii 
80 rem c16/c116/plus4 + 1531/1541 


100 c4$=chr$( 17) :c3$=chr$( 29) 
110 rn$=chr$( 18) :rf$=chr$( 146) 
120 fa$=chr$( 130) :fb$=chr$t( 131) 
130 he$=chr$( 19) 

140 forgq=1t05:95$=q95$+c4$:nextq 


150 forq=1t03:q3$=q93$+c3$:nextq 
160 vol 8 i 


170 scencir 

180 for x= 1 to 23 

190 read m$ 

200 char 1,x,x,m$ 

210 next 

220 for w= 1 to 4 

230 for s= 1 to 3 & 
240 for x=1 to 3 

250 sound 1,596,5:sound 2,516,5 
260 sound 1,596,5:sound 2,516,5 
270 sound 1,572, 10:sound 2,572,10 
280 next x 


290 sound 1,897,25 :sound2,864,25 
300 next s 


310 sound 1,118,25:sound2, 383,25 
320 next w 

330 print chr$( 142) 

340 print chr$( 27) +chr$( 82) 


350 rem flash und reverse mit con 
ol 


tr 


360 printrn$fa$"anleitung”"rf$chr$t 1 


31) :print 

370 for m=1t01400:next 

380 print"es wird ihnen ein deuts 

es" 

390 print:print"”verb gegeben.” 
400 print:print”"sie muessen nun d 
reihe nach” 


410 print:print"”die stammformen e 
geben.” 


ch 


er 


in 


420 print:print”nach jeder stammfor 


m druecken” 


430 print:print"sie die return ta 
e." 


st 


440 print:print"beim dritten mal er 


scheint” 
450 print:print"die musterloesung 


460 print:print"”um ein neues stichw 


ort zu bekommen" 


470 print:print”druecken sie eine 
aste.” 


£ 
» 
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LLL———__ 


Englische 


480 
490 
500 
510 
520 
530 
540 
550 
560 
ben" 


570 print:print"wenn sie stoppen wo 


llen 
580 


p 
590 


600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
8in 
‚8; 
820 
830 
840 
850 
n 
860 
d,zu 
870 
880 
890 
n 
900 
euge 
910 
920 
cken 
930 
en 
9340 
uben 
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print:print"jetzt auch!!!” 
getkeym$ 

trap 2560 

vol8 

print chr$( 27) +chr$( 82) 
print"”S5"” 

m$="-":for x=1 to 6 
m$=m$+m$:next 


printrf$fa$"unregelmaessige ver 


:printchr$( 131) 


print"dann druecken sie run/sto 


printhe$:rem home 
printgqg5$q3$ 
printchr$( 27) +chr$( 84) 
print chr$( 14) 

read 8$,b$,c$,d$ 

printd$ 

input ai$:sound 1,400,25 
input b1$:sound 1,400,25 
input c1$:sound 3,400,25 
if c1$=c$ then p=p+1 

if a1l$=a$ then p=p+1 

if b1$=b$ then p=p+1 
sound 1,500,25 

print a$,b$,c$,d$ 
getkeyd$ 

scnelr 

goto 2670 
char1,25,2,"note:" 
char1,32,2,n$ 
char1,25,4,"punkte:" 
char1,32,4,p$ 

goto 600 


data, ‚u,n,r,ae,g,e,i,m,a,e,s,$s,i 


data v,e,r,b,e,n 
rem verben 


data arise,arose,äarisen,erheben 
data awake, awoke, awaked,erwache 


data backslide,backslid,backsli 


rueckfallen 
data bear,bore,born,tragen 


data beat ,beat,beaten, schlagen 
data become,became ,,become,werde 


data beget,,‚begot ,‚begotten,(er)z 


n 


data begin,began,begun, beginnen 
data behold,beheld,beheld,erbli 


data bend,bent ,‚bent ‚,beugen/bieg 


data bereave,bereft,bereft,bera 


Verben 


950 data beseech, besought ‚,besought, 


anflehen 


960 data bid,bade,bidden,befehlen 
970 data bid,bid,bid,bieten 

980 data bind,bound, bound, verbinden 
990 data bite,bit,bitten,beissen 


1000 data 
1010 data 
1020 data 
n 

1030 data 
mehren" 
1040 data 
ngen 

1050 data 


bleed,bled,bled,bluten 
blow,blew,blown,blasen . 
break,broke,broken,breche 
breed,bred,bred, "sich ver 


bring,brought ‚brought ,bri 


broadcast ,‚broadcast,broad 


cast,senden/tv 


1060 data 


browbeat ,‚browbest,,browbea 


ten,einschuechtern 


1070 data 
1080 data 
1090 data 
eren 

1100 data 
1110 data 
1120 data 
1130 data 
n 

1140 data 
1150 data 
en 

1160 data 
en 

1170 data 
1180 data 


. 1190 data 


iden 

1200 data 
1210 data 
1220 data 
n B 
1230 data 
1240 data 
1250 data 
te-machen 
1260 data 


build,built,built,erbauen 
burn,burnt,,burnt,brennen 
burst,burst ,‚burst,explodi 


buy,bought ‚bought ‚kaufen 
can,could, ‚koennen 
cast,cast,cast,abwerfen 
catch, caught ,‚caught,, fange 


chide,chid,chidden, tadeln 
choose, chose,chosen, waehl 


cleave,clove,cloven, spalt 


cleave,clave, ‚festhalten 
cling,clung,clung,kleben 
cloth,clothed,clothed,kle 


come ‚came , come , kommmen 
cost,cost,cost,kosten 
cereep,crept,crept,krieche 


cut ‚cut,cut,schneiden 
dare,dared,dared,wagen 


deal,deailt,desalt,geschaef 


dive,dived,dived, springen 


/tauchen-nach 


1270 data 
1280 data: 
1290 data 
en 

1300 data 
1310 data 
1320 data 
1330 data 
1340 data 
i350 data 
1360 data 
1370 data 


do,did,done,tun 
draw,drew, drawn, zeichnen 
dream, dreamt,dreamt ,traum 


drink,drank,drunk,drinken 
drive,drove,driven, fahren 
dwell,dwelt,dwelt,wohnen 
eat ,‚ate,eaten,essen 
fall,fell,fallen,fallen 
feed, fed, fed, fuettern 
feel,felt,feit, fuehlen 
fight, fought , fought ,‚kaemp 


eu 


ii u > 


ANZEIGENSERVICE 


Die große Börse für jeden Zweck in der CBM REVUE / COMMODORE-WELT. Kostenlos für Privat-Inserenten. Spottbillig für 
gewerbliche Anbieter. Einfach Coupon ausschneiden, fotokopieren o.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — 
Unsere Adresse steht auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, 
daB wir offensichtlich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vor- 
behalten müssen, insbesondere, wenn deren Inhalt nicht CBM-typisch ist oder gegen geltendes Recht verstößt. Private Chiffrean- 
zeigen werden nicht aufgenommen. Für Privatanbieter: maximal acht Zeilen a 28 Anschläge. Für gewerbliche Anbieter: 5 DM p. mm. 


COMMODOREWELT 
Anzeigenabteilg. Vorname 
Postfach 1107 Straße/Hausnr. 
8044 Lohhof Plz/Ort 

ES nn a nn | | m nn m sn um m am am am rn an mn 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
KOSTENLOS! 


Das bietet Ihnen COMMODORE-WELT: KLEIN- 
ANZEIGEN SIND KOSTENLOSE FÜR PRIVATAN- 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver- 
kaufen, zu tauschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief- 
umschlag stecken und abschicken. So einfach geht 
das:: Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. -Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele- 
fonnummer sollten acht Zeilen a 28 Anschläge nicht 
überschritten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater In- 


serenten, keine gewerblichen Anzeigen. Die kosten 
pro Millimeter DM 5.00 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 
Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes abhängig! 
Wir behalten uns vor, Anzeigen, die nicht zum The- 
menkreis des Heftes — Computer — gehören, nicht ab- 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeigenteils zu- 
läßt. 
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20/64/1128 
16 / PA / 116 


Das unabhängige Commodore- Magazin 


KOMMT REGELMÄSSIG ZU IHNEN 
INS EN 


Finden Sie Ihre COMMODORE-WELT nicht am 
Kiosk? Weil sie schon ausverkauft ist? Oder „Ihr”” 
Kiosk nicht beliefert wurde? Kein Problem! Für 
ganze 60 DM liefern wir Ihnen per Post zwölf 
Hefte ins Haus (Ausland 80 DM). Einfach den 
Bestellschein ausschneiden — fotokopieren oder 
abschreiben, in einen Briefumschlag und ab per 
Post (Achtung: Porto nicht vergessen). COMMO- 
DORE-WELT kemmt dann pünktlich ins Haus. 


e 


zZ 


WICHTIGE RECHTLICHE 
GARANTIE! 
Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 
der Abo-Bestätigung durch den 
Verlag widerrufen — Postkarte ge- 
nügt. Ansonsten läuft dieser Auf- 
trag jeweils für zwölf Ausgaben, 
wenn ihm nicht vier Wochen vor 
Ablauf widersprochen wird, weiter. 


NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


ABO-SERVICE-KARTE 


er ne ee ee ES Se 


ss  COUPON 


Ich nehme zur Kenntnis, 
daß die Belieferung 

erst beginnt, wenn die 
Abo-Gebühr dem Verlag 
zugegangen ist. 


COMMODORE-WELT 


Abo-Service (16er) 
Postfach 1107 
8044 Unterschleißheim 
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Ja, ich möchte von Ihrem Kaser 


zwölf Ausgaben an untenstehende 


Gebrauch machen. * Anschrift. Wenn ich nicht vier Wo- 
Bitte senden Sie mir bis auf Wider- chen vor Ablauf kündige, läuft diese 


ruf ab sofort jeweils die nächsten Abmachung automatisch weiter. 


Name 

Vorname 
Straße/Hausnr. _ 
Plz/Ort 


Ich bezahle: 

DI per beiliegendem Verrechnungsscheck 

DI gegen Rechnung 

OD bargeldios per Bankeinzug von meinem Konto 


bei (Bank) und Ort____—_ 


Kontonummer 


Bankleitzahl 
(steht auf jedem Kontoauszug) 


Unterschrift __ 


Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 


Unterschrift. 


(16) 


| 


PROGRAMNMSERVICE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingungen die Listings dieses Heftes auf 
OD Kassetten zuDM40,-— D Disketten zuDM40,- (16er) 


Ich zahle: 
Zutreffendes bitte ankreuzen! 


per beigefügten Scheck ( ) Schein ( ) 


Gegen Bankabbuchung am Versandtag ( ) 

Meine Bank (mit Ortsname) _ __ 0000000 
Meine Kontonummer ______________ 2m 
Meine Bankleitzal___________________(steht auf jedem Bankäuszug) 

TEL EEE SEEN. ||, ; |: 
SC, ie SE REES een Mesa Plz/Ort 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. Umtausch bei 
Nichtfunktionieren. 


Unterschrif 
Bitte ausschneiden und einsenden an 


COMMODORE-WELT 
KASSETTENSERVICE (1 ber) 
Postfach 1107 

8044 Unterschleißheim 


GEWINNEN SIE EINE COM- 
PUTER-UHR! Und zusätzlich 
eventuell noch ein großes Com- 
modore-Buch. Oder ein Paket 
Disketten. ODER AUCH EINEN 
COMMODORE-DRUCKER —- 
ODER EINE DISKETTENSTA- 
TION! Wie? Sie werben einen 
Abonnenten. Dann haben Sie auf 
jeden Fall schon die Computer- 
Uhr gewonnen. Zusätzlich ver- 
losen wir unter allen, die mit- 
machen, jeden Monat vier weitere * 
wertvolle Preise. Und alle sechs Herrn/Frau 
Monate gibt es einen Hauptpreis 

unter allen Abo-Werbern u —— 
gewinnen. Also: Mitmachen. Mit-  Seraße Hausni Kane 
gewinnen. se ae ee 


Der neue Abonnent war bisher 
noch nicht Bezieher dieser Zeit- 
schrift. 

Als Prämie erhalte ich nach Ein- 
gang des Abo-Entgeltes auf jeden 
Fall eine Computer-Uhr, wie ab- 
gebildet, und nehme zusätzlich 
noch an der Verlosung des Monats 
sowie der halbjährlichen Haupt- 
preise teil. Mir ist bekannt, daß 
der Rechtsweg bei den Verlosun- 
gen ausgeschlossen ist. 

Meinen Preis senden Sie an 


Straße/Hsnr. 
Pz/Oot______—- - _ _. Pi/Or 


TIRgm„„ 777 (Bitte ausschneiden und zusam- 
Ja, ich mache mit beim Abo- als neuen Abonnenten für de men mit der Abo-Bestellkarte 
Wettbewerb. Ich habe COMMODORE WELT geworben. links einsenden!) (16) 


Haben Sie einen Commodore VC 20 oder C 64? 
Einen 16/116, Plus 4? Oder einen 128? Können Sie 
programmieren? In Basic oder Maschinensprache? 
Dann bietet COMMODORE-WELT Ihnen die Mög- 
lichkeit, mit diesem Hobby Geld zu verdienen! 

Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusam- 
men mit einer Kurzbeschreibung, aus der auch die 
verwendete Hardware — eventuelle Erweiterungen — 
benutzte Peripherie — hervorgehen muß (Schauen Sie 
sich dazu den Kopf unserer Programmlistings an.) 

Benötigt werden: Zwei Listings des Programms 
sowie eine Datenkassette oder Diskette! Wenn die 
Redaktion sich überzeugt hat, daß dieses Programm 
läuft und sich zum Abdruck eignet, zahlen wir Ihnen 
pro Programm je nach Umfang bis zu DM 300,-1 


Name des Einsenders: 
Straße /Hausnr./Tel.: 


VERDIENEN SIE GELD 
MIT IHREM COMPUTER! 


Sollten Sie keinen Drucker haben, genügt der Daten- 
träger. 

Sie erhalten Ihre Kassette/Diskette selbstverständ- 
lich zurück, wenn Sie einen ausreichend frankierten 
Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift 
garantieren, daß Sie der alleinige Inhaber der Urheber- 
Rechte sind! Benutzen Sie bitte anhängendes Formu- 
ları (Wir weisen darauf hin, daß auch die Redaktion 
amerikanische und englische Fachzeitschriften liest 
und „umgestaltete”’ Programme ziemlich schnell er- 
kennt). 

Um Ihnen die Arbeit zu erleichtern, finden Sie hier 
ein Formular. Sie können es ausschneiden oder foto- 
kopieren. 


Plz/Ort: 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programme) an: 


Benötigte Geräte: 


Beigefügt ( ) Listings ( ) Kassette ( ) Diskette 


Ich versichere, der alleinige Urheber des Programmes zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es 
in den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung, das Copy- 


right geht insoweit auf den Verlag über. , 


Rechtsverbindliche Unterschrift 


Postfach 1107 
8044 Lohhof 
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RE -WELT 


Englische 


fen 

1380 
1390 
1400 
ern 

1410 
1420 


data 
data 
data 


data 
data 


Verben 


find, found, found, finden 
flee,fled,fled,fliehen 
fling,flung, flung, schleud 


fly,flew,flown, fliegen 
forbear, forbore, forborne, 


unterlassen 


1430 data 
verbieten 
1440 data 
ergessen 
1450 data 
vergeben 
1460 data 
verlassen 
1470 data 
ren 
1480 
en 
1490 
1500 
1510 
1520 
n 
1530 
1540 
1550 
n 
1560 
1570 
1580 
n 
1590 
fen 
1600 
1610 
1620 
1630 
1640 
cken 
1650 
1660 
1670 
1680 
1690 
iegen 
1700 
en 
1710 
1720 
1730 
1748. 
1750 
1760 
1770 
1780 
1790 


data 


data 
data 
data 
data 


data 
data 
data 


data 
data 
data 


data 


data 
data 
data 
data 
data 


data 
data 
data 
data 
data 


data 


data 
data 
data 
data 
data 
data 
data 
data 
data 


forbid, forbade, forbidden, 
Fomuat, forgal;tfangottem 
forgive,forgave, forgiven, 
forsake, forsook,forsaken, 
sweär,swore,sworne, schwoe 
freeze, froze,frozen, frier 


get,got,got,bekommen 
give, gave,given, geben 
hang,hung,hung,haengen 
hang ,hanged,hanged, hencke 


have,hase, had, haben 
hear,heard, heard, hoeren 
heave,heaved, heaved,hiefe 


go,went,gone,gehen 
hew,hewed,hewn,hacken 
hide,hid,hidden, verstecke 


hit,hit,hit,schlagen/tref 


hold,held,held,halten 
hurt,hurt,hurt, verletzen 
keep,kept,kept,behalten 
kneel,kneit,knelt,knien 
knit,knitted,knitted,stri 


know, knew,known,kennen 
lade,laded, laded,beladen 
lay,laid,laid,legen 
lead,led,led,fuehren 
lean,leant,leant,neigen/b 


leap,leaäpet, leapet, spring 


leave,left,left,verlassen 
lend,lent,lent,verleihen 
let,let,let,lassen 
lie,lay,lain,liegen 
lose,lost, lost,verlieren 
make ‚made ‚made ‚machen 
may,might, ‚koennte 
mean,meant ,‚meant ‚meinen 
mow,mowed,mown,maehen 


1800 


1810 
1820 
1830 
1840 
1850 
1860 


data 
data 
data 
data 
data 
data 
data 


/gehen 


1870 
1880 
sten 
1890 
1900 
1910 
1920 


1930 


1940 
eden 
1950 
1960 
1970 
1980 


1990 


teln 
2000 
2010 


data 
data 


data 
data 
data 
data 
data 
data 


data 
data 
data 
data 
data 


data 
data 


pay,paid,paid,zahlen 

put ,put,put,stelen/legen 
read,read,read,lesen 
rend, rent,rent,zerreissen 
ride,rode,ridden,reiten 
ring,rang,rüung,klingeln 
rise,rose,risen, aufstehen 


rive,rived,riven,reissen 
roast, roasted, roasted,roe 


run,ran,run,laufen 

saw, sawed, sawn, saehen 
say,said,said,sagen 

see, saw,seen, sehen 

seek ,sought ,sought ,sehen 
seethe, seethed, seethed, si 


sell,sold,sold,verkaufen 
send, sent, sent,schicken 
set,set,set,stellen 

sew, sewed, sewn, naehen 
shake, shook ,shaken, schuet 


shall,should, ‚sollen 
shear, sheared, sheared, (sc 


haf)scheren 


2020 
2030 
n 
20A0 
2050 
2060 
2070 
2080 
2090 
2100 
n 
2110 
n 
2120 
2130 
2140 
2150 
en 
2160 
2170 


data 
data 


data 
data 
data 
data 
data 
data 
data 


data 


data 
data 
data 
data 


data 
data 


bieren 


2180 


data 


shed, shed, shed, vergiessen 
shine, shone, shone, scheine 


shoot ‚shot, , shot ‚schiessen 
show, showed, shown, zeigen 
shut ,shut,shut,schliessen 
sing, sang, sung, singen 
sink, sank, sunk ‚sinken 
sit,sat,sat,setzen 
slay,slew,slain,erschlage 


sleep,silept,slept,schlafe 
slide,slit,slit,rutschen 
smell,smelt,smelt,riechen 
sow, sowed, sown, saeen 


speak, spoke, spoken, sprech 


speed, sped, sped,beeilen 
spell,spelt,spelt,buchsta 


spend, spent ,spent,spenden 


/verbringen 
24190 data spill,spilt,spilt,ueberla 


ufen 
2200 
n 

2240 
2220 


data 


data 
data 


ndern 


22230 


date 


spit, spat, spat,aufspiesse 


split,split,split,spalten 
spoil,spoiled, spoilt,plue 


spread, spread, spread, aus/ &> 
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— 


Englische 


verbreiten 


Verben 


2240 data spring,sprang, sprung, spri 


ngen 


2250 data 
2260 data 


n 


2270 data 
/stechen 
2280 data 


heln 


2290 data 
2300 data 


ven 


2310 data 


en 


2320 data 


eihen 


stand, stood,stood, stehen 
steal,stole,stolen, stehle 


stick,stuck ,stuck ,stecken 


sting, stung ,stung ,‚aufstac 


stink, stank ,stunk ,stinken 
strew,strewed, strewn,stre 


strike,struk,struk,streik 


string, strung,, strung,, aufr 


2330 data strive,strove,striven,"si 
ch bemuehen” 
2340 data swear,swore,sworn,schwoer 


en 
2350 


fegen 


2360 
2370 
en 
2380 
2390 
n 
2400 
2410 
ken 
2420 


data 


data 
data 


data 
data 


data 
data 


data 


eihen - 


2430 
2440 
sen 

2450 


data 
data 


data 


reten 


2460 
2470 


data 
data 


ragen 


sweep, swept ,swept,kehren/ 


swim, swam, swum, schwimmen 
swing , swung , swung,, schwing 


take,took,taken, nehmen 
teach, taught ,taught, lehre 


tell,told,told,erzaehlen 
think, thought , thought ‚den 


thrive,throve,thriven,ged 


throw,threw,thrown,werfen - 


thrust,thrust,thrust, stos 
tread,trod,trodden,(auf)t 


wake,woke,woken, aufwecken 
wear,wore,worn,-kleider-t 


2480 
en 

2490 
2500 
2510 
2520 
en 

2530 
2540 
iben 
2550 


data 


data 
data 
data 
data 


data 
data 


weave,wove,woven,(ver)web 
weep,wept ,,‚wept,(be)weinen 
will,would, ‚werden 
win,won,won,gewinnen., 

ork ,worked, worked, arbeit 


wring,wrung,wrung,wringen 
write,wrote,written, schre 


rem ende der verben 


print"sie haben von 685 punkte 


printp,"punkte geschaft” :print 


2560 print chr$( 14) +chr$( 82) 
2570 

n" 

2580 print 

2590 

2600 if p=O then n=6:goto 2640 
2610 n=int( 685/( p*#1.3)) 

2620 if n>6then n=6 

2630 if n<1 then n=1 

2640 print"das entspricht der note" 
2650 print:printspc(5)n 

2660 end 

2670 if p=-DOthen n=6:goto 2710 
2680 n=int( 685/(p*1.3)) 

2690 if n>6then n=6 

2700 if n<i then n=1 

2710 p$=str$(p) 

2720 n$=str$(n) 

2730 goto 760 

2740 rem unregelmaessige verben 
====016 

2750 rem 12777 .bytes memory 
2760 rem 08176 bytes programm 
2770 rem 04601 bytes free 

2780 rem 


TELE-MÜHLE 


Ich habe mich um eine 
originalgetreue Simula- 
tion des Spielklassikers 
„Mühle“ bemüht und al- 
le graphischen Möglich- 
keiten des V3.5- Basics 
weidlich ausgenutzt. End- 
lich ein Gesellschaftsspiel 
auf dem Terminal, durch 
dessen User-freundliche 
Handhabung die beiden 
Spieler schnell das Origi- 
nal vergessen haben wer- 
den! 

Denn bei Screenwech- 

* seln (z.B. Steinwegnahme) 


wird nicht, wie bei ähnli- 
chen Spielen üblich, der 
ganze Bildschirm gelöscht 
und verändert neu wieder 
aufgebaut, sondern wirk- 
lich nur die betreffende 
Stelle verändert. Selbst- 
verständlich (und leider) 
läuft ein Programm sol- 
chen Umfangs nicht auf 
der Grundversion des C 
16/116, da die der Gra- 
fik verbleibenden 2 K- 
Bytes wirklich zu wenig 
sind. Aber allen Plus 4 - 
und C16/116 + Ausbau- 


ni Ace ih 


int 


wa Mm #4 


gr: 


rm 


Heumann 


vun: mere 


z. 


Telecmühle Flus/4 


modul-Besitzern, die ja 
schon länger auf dem 
Markt zu erhalten sind 
(16K oder 64K), steht 
dieses schöne Programm 
zur Verfügung. 

Beim Spielen selbst hat 
man durch die einfache 
Handhabung keinerlei 
Schwierigkeiten. Selbst- 
verständlich beherrscht 
der Computer sämtliche 
Regeln des Mühlespieles. 
und macht sich bei ei- 
nem Regelverstoß laut- 


Mühle per Computer 


stark bemerkbar und 
ruft den Sünder zur 
Ordnung. 


Nur bei einer Regel 
(bei Steinentnahme - 
nur möglich, wenn der 
Stein nicht in einer Müh- 
le ist, falls nicht alle 
Steine in Mühlen sind), 
fragt der Computer den 
betroffenen Spieler, ob 
alles -.seine Richtigkeit 
hat. 

Sämtliche übrigen Re- 
geln beherrscht der Com- 
puter aber perfekt (z.B. 
Mühle-Erkennung oder 
Hüpfen bei drei Steinen, 
usw.) Hat nun ein Spieler 
gesiegt, auf welche Weise 
auch immer, wird er am 


Ende mit einer Fanfare 
und schönen grafischen 
Spielereien belohnt. 


Zum Spielfeld 


Während des Spielver- 
laufs sieht man ganz oben 
links für Weiß und rechts 
für Schwarz die Position 
des letzten weggenomme- 
nen Steines, darunter die 
letzte eingetippte Stein- 
position und ganz unten 
die jeweilige Steinanzahl. 
Das Spielfeld ist waag- 


recht dreigeteilt, in A-B- 
C, und senkrecht bestim- 
men jeweils Zahlen die 
genauen Positionen. Sieht 
man sich das Einteilungs- 
system genauer an, ver- 
steht man es sofort und 
wird keine Schwierigkei- 
ten damit haben. 

Zu beachten ist aller- 
dings, daß in der B-Ebe- 
ne nur die Zahlen 1, 4, 
7,9, 6 und 3 existieren, 
um das logische Durch- 
zählsystem in den beiden 
anderen Ebenen nicht zu 
durchbrechen. 

Wie üblich beginnt 
Weiß (Rand gelb) und 
wechselt mit Schwarz 
(Rand blau) ab. Zuerst 
werden alle Steine ge- 
setzt (‚Wohin’), und dann 
wird gezogen (,Von’ - 
‚Nach’). 


10 rem tele-muehle ============p/4 

20 rem ({p) by ' commodore welt bw 

30 rem ===-===>= = =2=22====222zmmameanmmem 

40 rem (c) by > 

50 rem m.purucker = 

60 rem = 

70 rem version 3.5 40z/ascii = 

80 rem plus/4+ C 16 m. 64 K = 

100 graphic 1,1:graphic 0,1 

110 rem strings initialisieren###* 

120 trap 3440 

130 : 

140 dim s$(26) :color 0,2,0:color 4, 
2,0 

150 restore 940:for uu=0toi1il:read n 


‚p:gosub 950:next uu 

160 s$[ 12) =chr$( 98) +chr$( 32) +chr$( 9 
8) +chr$( 32) +chr$( 98) +chr$( 32) +chr$( 
98) +chr$( 32) 

170 s$( 12) =s$[ 12) +chr$( 98) :s$[ 13) =c 
hr$( 98) +chr$( 32) +chr$( 98) : s$( 14) =ch 
r$( 117) . 

180 s$( 15) =chr$( 105) :s$( 16) =chr$({ 10 
6) :s$( 17) =chr$( 107) : s$[ 18) =chr$( 98) 
:s$( 19) =chr$( 32) 

190 s$( 20) =chr$( 99) :s$( 21) =chr$( 176 
) :s$( 22) =chr$( 174) :s$[ 23) =chr$( 181) 
200 s$( 24) =chr$( 182) :s$( 25) =chr$t{ 17 
3) :s$( 26) =chr$( 189) 

210 : 

220 rem vorspann HH Et 
230 scncelir 

240 char1,1,1,s$( 14) +s$( 1) +s$( 15) :c 
har1,1,2,s$( 16) +s$( 10) +s$( 15) +s$( 14 
)+s$( 2) +s$( 17) 

250 char1,5,3,s$(0)+s$( 3) +s$( 14) +s$ 
(4) +s$( 15) +s$( 9) +s$[ 14) +s$( 15) +s$[5 
) +s$( 14) +s$( 4) 

260 char1,36,3,s$( 15) :char1,5,4,s$( 
0) +s$( 3) +s$( 18) +s$( 14) +s$( 6) +s$[ 17) 
+s$( 9) +s$(D) 

270 char1,23,4,s$(5) +s$( 18) +s$( 14) + 
s$( 6) +s$( 17) 

280 char1,5,5,s$(0)+s$( 3) +s$( 0) +s$( 
5) +s$[0) +s$(5) +s$( 0) 

290 char1,5,6,s$(0) +s$( 3) +s$( 18) +s$ 
( 16) +s$( 6) +s$( 15) +s$[ 9) +s$[ 0) +s$(5) 
+39$( 18) +s$( 16) 

300 char1,32,6,s$(6) +s$( 15) 

310 char1,5,7,s$( 0) +s$({ 3) +s$( 18) +s$ 
( 14) +s$( 6) +s$( 17) +s$[ 9) +s$( 0) 

320 char1,23,7,s$(5)+s$( 18) +s$( 14) + 
s$( 6) +s$( 17) 

330 char1,5,8,s$( 0) +s$( 3) +s$( 0) +s$( 
5) +s$( 0) +s$(5) +s$( 0) 

340 char1,5,9,s$(0) +s$( 3) +s$( 18) +s$ 
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( 16) +3$( 6) +s$( 15) +s3$( 9) +s$[ 18) +s$ 1 
6) +3$( 6) +s$( 15) 

350 char1,28,9, s$( 9) +5$[ 18) +s$( 16) + 
s$[ 6) +s$( 15) 

360 char1,5,10,s${ 16) +s$( 17) +s$( 3) + 
s$( 16) +s$( 4) +s$( 17) +s$[ 9) +s$([ 16) +s$ 

(4) +s$( 17) 

370 char1,28,10,s$( 9) +s$( 16) +s5$( 4) + 
s$( 17) 

380 char1,2,13,s$( 21) +s$( 20) +s$( 22) 
+5$[ 19) +8$( 21) +s$( 20) +s$( 22) +s$( 19) 
+s5$( 21) +s$( 19) 

390 char1,12,13,s$( 23) +s$( 24) +s$( 19 
) +s$( 22) +s$( 19) +s$[ 21) +s$( 8) +s$[ 22) 
+s${ 19) 

400 char1,24,13,s$( 21) +s$( 7) +s$[ 21) 
+s$( 6) +s$( 22) 

410 char1,2,14,s$( 12) +s${ 8) +s$( 13) + 
s$[ 8) +s$( 13) +s$[ 7) +s$( 18) 

420 char1,2,15,s$( 12) +s$( 8) +s$( 13) + 
s$[ 8) +s$[ 13) +s3$[ 7) +s$[ 18) 

430 char1,2,16,s${ 12) +s$( 8) +s$( 13) + 
s$l 11) +s$[ 13) +s$[7) +s$[ 18) +s$[ 11) 
440 char1,2,17,s$( 18) +s$( 19) +s$( 25) 
+s$( 20) +s$( 26) +s$( 19) +s$( 13) +s$[ 8) + 
s$( 13) +s$( 8) 

450 char1,22,17,s$( 13) +s$( 7) +s$( 18) 
:char1,2,18,s${ 25) +s$( 3) +s$( 26) +s$( 
19) +s3$( 25) 

460 char1,11,18,s$( 6) +s$( 26) +s$( 19) 
+5$( 25) +s$([ B) +s$( 26) +s$( 19) +s$( 25) + 
s$( 6) 

470 char 1,29,18,s$( 26) +s$( 19) +s$( 2 

5) +s$( 6) +s$( 26) 


480 char 1,13,21,s$( 14) +s$[ 20) +s$(1 


5):char 1,13,22,s$( 18) +"c”"+s$( 18) 
490 char 1,17,22,”"by purisoft m.p. 
85/86”:char 1,13,23,s$( 16) +s$( 20) +s 
$C 17) 

500 cir:fa$=chr$( 130) :Fo$=chr$( 131) 
:trap 3440:gb=9:gw=9 

510 for ui=0t07?:vol ui:sound 1,ui,4 
O:sound 2,ui,40:color O,ui+3,3:colo 
r 4,ui+5,3 

520 for t=1t0400:next:next 

530 sound 1,7,120:sound '2,516, 120:c 
olor 0,14,1:color 4,14,1 

540 sound 1,516, 120:sound 2,770, 120 
:color 0,12,2:color 4,12,2 

550 sound 1,770, 150:sound 2,897, 150 
:color 0,8,4:color 4,8,4 

560 vol B:sound 1,7,30:sound 2,516, 
30:color 0,3,0:color 4,3,0 

570 sound 2,516, 100:sound 1,897,200 
:color 0,16,3:color 4,16,3 

550 for ui=8toilstep-1:vol uwi:sound3 
‚516,20:color0,5,2:color4,5,2:for t 
=1t0500:next 


70 


590 vol ui-1:sound 3,7,20:color 0,2 
‚O:color 4,2,0:for t=1t0500:next:ne 
xt 

600 scenclir:char 1,13,1,"”vorname spie 
ler 1 (weiss) ":input n1$ 


610 char 1,1,3,”"vorname spieler 2 ( 
schwarz) ":input n2$ 

620 char 1,1,10,"mit ’e’ zum spiel” 
630 char 

1,3,24,”- mit ’space’ zu erlaeuteru 
ngen -” 


640 poke 239,0:getkey hs$:if hs$="e 
” then 960 

650 scncir:char 1,10,1,"spielerklae 
rung” 

660 char 1,1,3,"spielfeld:der spiel 
plan ist horizontal” 

670 char 1,1,5,"dreigeteilt (a-b-c) 
;vertikal bestimmen" 

680 char 1,1,7,"zahlen die position 
en,indem man ein-"” 

690 char 1,1,9,"fach in den jeweili 
gen muehleebenen” 

700 char 1,13,113,"von links nach rec 
hts durchzaehlt."” 

710 char 1,1,13,"in der b-ebene exi 
stieren b2,b5,b8" 

720 char 1,1,15,"”nicht, 
aehlsystem nicht” 

730 char Erb, PS UARSNBENBUnN wird. 


damit das z 


740 char 1,5,24,"”- mit ’space’” umbl 
aettern ":poke 239,0:getkey hs$:sc 
nelr 


750 char 1,1,1, again: es wird nach 
den allgemeinguel-"” 


760 char 1,1,3,”"tigen regeln gespie 
lt;eines ist aber " 

770 char 1,1,5,"zu beachten:hat man 
bei der steinweg-"” 


780 char 1,1,7,"”nahme einen stein g 

ewaehlt, fraegt das" 

790 char 1,1,9,"programm, 
der regel gemaess” 

800 char 1,1,11,"ist.diese regel la 
utet:ein stein,” 

810 char 1,1,13,”der in einer muehl 
e eingeschlossen ist” 

820 char 1,1,15,”darf nicht entnomm 
en werden, ":color 1,3,5:char1,30, 15 
‚"fFalls" 

830 color 1,1:char 1,1,17, 
le steine in muehlen ein-”. 
840 char 1,1,19,"geschlossen sind.” 
850 char 1,5,24,"- mit ’space’” umbl 

aettern -":poke 239,0:getkey hs$:sc 
nelr 

B60 char 1,1,1,"”vorsicht 
e beim steineziehen” 


ob dieses 


"nicht al 


t!:falls si 
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870 char 1,1,3,"auf den selben plat 
z ziehen, auf dem” 

880 char 1,1,5,"sie stehen (bzw. st 
anden), haben sie " 

890 char 1,1,7,"das spiel verloren, 
da der computer "” 

900 char 1,1,9,"dann annimmt, 
sie mit keinem " 
910 char 1,1,1313, 
koennen. 

920 char 1 e:$ 24,"- mit space zum sp 
iel - ":poke 239, ‚O:getkey hs$ 

930 goto 960 

940 data 2,98,36,99,31,99,5,32,5,99 
‚7,32,4,99,6,32,4,32,2,32,3,99,4,18 

4 

950 for tt=1ton:s$( uu) = s$( uu) +chr$( 
p) :next:return 

960 rem hprHRHRRHHSHRRREERRRE 

970 color 0O,2:color 4,7,6 

980 vol 5:g0sub1060 

990 gosub 1300 

1000 gosub 1890 

1010 gosub 2000 

1020 gosub 2230 

1030 if ko=1 then gosub 2930 

1040 goto 1020 

1050 rem graphicvorbereitung** 

1060 graphic 1,1 

1070 char 1,1,20,"rem graphische sp 

ielfeldvorbereitungen"” 

1080 draw 1,100,30€0100,20t0110,20: 

circle1,100,20, 1:sshape 

ol$,90, 10, 110, 30 

1090 dran 1, 150, 30t0o150, 2010140, 20: 

circlei, 150, 20, 1: Eu 

od$, 140, 10, 160,30 

1100 draw 1,200, 100200, 20t0210,20: 

circle1,200,20, 1:sshape 

ul$, 190, 10,210,30 

1110 draw 1,250, 100250, 20t0240,20: 

ceircle1,250,20,1:sshape 

ur$,240,10,260,30 

1120 draw 1,290, 20t0310, 20: draw 
1,300,20t0300,30:circle1,300,20,1 
1130 sshape mo$,290,10,310,30 

1140 draw 1,10, 100t020, 100:draw 
1,20,90t020,110:circle1,20, 100, 1 
1150 sshape mr$, 10,90,30, 110 
1160.draw 1,50,90t050, 100: draw 
1,40, 100t060, 100:circle1,50, 100, 1 
1170 sshape mu$,40,90,60, 110 

1180 draw 1,110, 100t0100, 100: draw 
1,100,90t0100, 110:circle1, 100,100, 1 
1190 sshape m1$,90,90,110,110 

1200 draw 1,140, 100t0160, 100: draw 
1,150, 900150, 110:circle1, 150, 100, 1 
1210 sshape k$,140,90, 160,110 


dass 


"stein mehr ziehen 


1330 


"1400 


1220 circle 1,20,20,10:circle 
1,20,20,7:circle 1,20,20,4 

1230 sshape w$,10,10,30,30 

1240 circle 0,20,20,?:circle 0,20,2 

0,4:paint 1,20,20 

1250 circle 0,20,20,7:circle 0,20,2 

0,4 

1260 sshape b1$,10,10,30,30 

1270 circle 1,30,30,1:paint 1,30,30 
:sshape p$,29,29,31,31 

1280 scncelr:return 

1290 rem spielfeldaufbau##t##x## 
1300 box 1,74,14,244, 184 

1310 box 1,99,39,219, 159 

1320 box 1,124,64, 194,134 

draw 1,74,99t0124,99 

draw 1,194,99t0244,99 

draw 1,159, 14t0159,64 

draw 1,159, 184t0159, 134 
restore1960:for t=1t024 

read x,y  - 
geshape p$,x-1 
next:return 
rem steinposition bestimmen 
restore1960:for t=itopo 

read x,y 

next:return 

1450 rem muehlebestimmung######% 
1460 ko=-0:i=asc( b$) -64: j=vall( z$) :fo 

re=-ito3 step 2 

1470 forf=1t07 step 3 :ka=0 

1480 if fle,f)=fle,f+1)andfl(e,f)=Fl( 

e,f+2)and( fle,f)=-torf(e,f)=2)thenka 

=f(e,f):ko=1. 

1490 ifko=iand( esiand( f=jor( f+1)=jo 

r(f+2)=j))then ko=1:else ko=0 

1500 if ko=1 then return 

1510 next f,e 

1520 for fF=1t07 step 3:ka=O 

1530 if Fl1,Ff)=-fl2,f)andf( 1,F)=fl3, 

F)and( fl 1,Ff)=1orf( 1,f)=2)thenka=fl( 1 
‚f):ko=1 

1540 ifko=land( f= jand( i=1lori=2o0ori=3 
))thenko=1:elseko=0 

1550 if ko=1 then return 

1560 nextf 

1570 for f=3t09 step 3:ka=0 

1580 if FLi,F)=fl2,Ff)andfl i,F)=fl3, 
F)and( FL 1,Ff)=torfl 1,f)=2)thenka=ff( 1 
‚„f}:ko=1 

1590 ifko=iandf{ f=jandl i=1ori=2ori=3 
}})thenko=i:elseko=0 

1600 if ko=1 then return 

1610 next f 

1620 ka=0 

1630 iffl2,1)=fl2,4)andft 2, 1)=fl2,7 
Jand{ f(2,1)=iorf(2,1}=2})thenka=f(2, 
1) :ko=1 


1340 
1350 
1360 
1370 
1380 
1390 ‚y-i 
1410 
1420 
1430 
1440 
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1640 ifko=1land( i=2and( j= 10ETR Aor j=7 
I))thenko=1:elseko=DO 

1650 if ko=1 then return 

1660 ka=0 

1670 ifflt2,3=-f[l2,6)andf[ 2,3)=f[2,9 
Jand{ f[ 2,3) =1orf{ 2,3)=2)thenka=f[(2, 
3) :ko=1 

1680 ifko=1landl i=2and( j=3or J=6or j=9 
))thenko=1:elseko=D 

1690 if ko=1 then return 

1700 ka=0 

1710 iffl1,2)=Ffl1,5)andFfl 1,2)=F[( 1,8 
Jand( f( 1,2) =1orf( 1,2) =2)thenka=fl 1, 
2) :ko=1 

1720 ifko=1landf i=1land( j>2or J=Sor j=8 
))thenko=1:elseko=O 

1730 if ko=1 then return 

1740 ka=0 

1750 iffl3,2)=f[3,5)andf( 3,2)=f[3,8 
Jand( fl 3,2)=1Iorf( 3,2) =2)thenka=f{3, 
2) :ko=1 

1760 ifko=1andl i=3and( j=2o0r j=Sor j=8 
))thenko=1:elseko=0 

1770 return 

17860 rem ersatzshapebestimmung*### 
1790 ifpo=lorpo=4orpo=?thenez$=ol$: 
return:rem ersatzsteinpositionsents 
cheidung 

1800 ifpo=3orpo=6orpo=9thenez$=0od$: 
return 

1810 ifpo=16orpo=19orpo=22thenez$=u 
1$:return 

1820 ifpo=18orpo=21orpo=24thenez$=u 
r$:return 


1830 ifpo=2orpo=23thenez$=mo$:retur. 


n 
1840 ifpo=12orpo=15thenez$=mr$:retu 
rn { 

1850 ifpo=8orpo=17thenez$=mu$:retur 
n 

1860 ifpo=100rpo=13thenez$=ml$:retu 
ren 

1870 ez$=k$:return 

1880 rem bezeichnungsaufbaut##tt#s##3t 
1890 char 1,6,1,"a”:char 1,6, 12,"”b" 
:char 1,6,23,"”c - 

1900 char 1,11,24,"1":char 1,21,24, 
"2":char 1,32,24,"3"” 

1910 char 1,13,21,"4":char 1,21,21, 
"S5":char 1,28,21,”6" \ 

1920 char 1,16,18,"7?":char 1,21,18, 
"8”:char 1,25,18,”9” 

1930 char1,1,18,”noch"”:char1,35, 18, 
"noch”, 1 

1940 char1,2,20,str$(gw) :char1,36,2 
0,str$( gb) ,1:return ° 

1950 rem databloecke zu steinpositi 
onsbestimmung 


72 


1960 data 74,14,159,14,244,14,99,39 

‚159,39,219,39,124,64,159,64,194,64 
‚74,99,99,99 

1970 data 124,99,194,99,219, 99, 244, 

99,74,184,159, 184 

1980 data 244,184,99, 159, 159, 159,29 

9,159, 124, 134,159, 134, 194,134 

1990 rem steine setzen###r## 

2000 . gb=9:gw=9:w=9:b=9: for t=1to3:f 

or y=-1t09:f{t,y)=O:nexty,t 

2010 ge$="a1a2a3a435363738a39b 1b4b7b 

9b6b3c 1c2c3cAcSc6c7c8c9” 

2020 trap 2030 

2030 color 4,8,6:char 1,1,5, "wohin" 
:poke 239,0:getkey b$,2$:a$=b$+z$:d 

rs 

2040 char 1,2,9,3$ 

2050 ifa$="b2"ora$="b5"ora$="b8" th 

ensound 1,0,20:goto 2030 

2060 if f[(asc(b$)-64) ,vall z$))<>O 

then sound 1,0,20:goto 2030 

2070 po=int((instr({ge$,a$) +1) /2) :if 

po<>Othengosub1420:elsesound1,0,20: 

goto 2030 

2080 gshapew$,x-10,y-10:w=w-1:fl(as 

c(b$) -64) ,‚val( z2$))=1:gosub 1890: gosu 

b1460 

2090 if ko=1 then gosub 2930 

2100 if gw<3then3200 

2110 char 0,1,5,"wohin” 

2120 trap 2130 

2130 color 4,15,1:char 1,34,5,"wohi 

n",i1:poke 239,0:getkey 'b$, z$:a$=b$+ 

2$:dr=2 

2140 char 1,36,9,3$,1 

2150 ifa$=-"b2"ora$="bS"ora$="bB" th 

ensound 1,0,20:goto 2130 

2160 if f((asc(b$)-64) ,‚vall z$))<>O 

then sound 1,0,20:goto 2130 

2170 po=int((instr(ge$,a$) +1)/2):if 

po<>0Othengosub 1420:elsesound1,0,20: 

goto 2130 

2180 gshape b1$,x-10,y-10:b=b-1:f[( 

asc(b$)-64) ,val[lz$))=2:gosub 1890:g 

osub 1460 

2190 if gb<3then3200 

2200 if ko=1 then gosub 2930 

2210 char 0,34,5,"wohin” 

2220 if b=Othenreturn:else 2020 
2230 rem steine ziehen#### 

2240 trap 2260 

2250 ifgw<3 then3200 

2260 color 4,8,6:char 1,1,5,”"von ” 
:poke 239,0:getkey b$,2$:3$=b$+z$:d 

r=1 

2270 if fFllasc(b$)-64) ,vall z$))<>dr 
then sound 1,0,20:goto 2260 

2280 char 1,2,9,a$ 
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2290 f((asc(b$) -64) ,‚val(l z$))=0:po=i 


nt((instr(ge$,a$}) +1)/2) :bo=po 

2300 if bo<>O then gosub 1790:else 
sound 1,0,20:goto 2260 

2310 gosub 1420:gshape ez$,x-10,y-1 
O:gosub 1890 

2320 trap 2330 

2330 char 1,1,5,"nach":getkey 
b$,z$:a2$=b$+z$ 

2340 char 1,2,9,a2$ 5 

2350 ifgw<>3 then gosub2600:else ev 
=1 

2360 if fFllasc(b$)-64) ,val( z$)}) <>O0o 
rev=0then sound 1,0,20:goto 2330 
2370 fllasc(b$)-64) ,‚val(z$))=1:po=i 
nt((instr(ge$,a2$) +1) /2) 

2380 if po<>O then gosub 1420: else 
sound 1,0,28:goto 2330 

2390 Sahne w$,x-10,y-10:gosub 1890 
:gosub 1460 

2400 if ko=1 then gosub 2930 

2410 char 0,1,5,"nach" 

2420 trap 2440 

2430 ifgb<3 then3200 

2440 color4,15,1:char1,35,5,"von",1 
:char1,4,5," ":poke239,0:getkeyb$, 
z$:3$=b$+z$:dr=2 

2450 if f(llasc(b$) -64) ,‚val( z$)) <>dr 
then sound 1,0,20:goto 2440 

2460 char 1,36,9,a$, 1 

2470 F((asc(b$)-64) ‚val( z2$))=-0O:po=i 
nt((instr(ge$,a$) +1) /2) :bo=po 

2480 if bo<>O then gosub 1790:else 
sound 1,0,20:goto 2440 

2490 gosub 1420:gshape ez$,x-10,y-1 

O:gosub 1890 

2500 trap 2510 

2510 char 1,34,5,"nach",1:poke 239, 

O:getkey b$,2$:32$=b$+z$ 

2520 char 1,36,9,32$, 1 

2530 if gb<>3thengosub 2600:else ev 

=1 

2540 if f(llasc(b$)-64) ,val( z$))<>O 

or ev=0 then sound 1,0,20:goto 2510 

2550 f(lasc(b$) -64) ,vall z$))=-2:po=i 

nt((instr(ge$,a2$) +1) /2) 

2560 if po<>DO then gosub 1420:else 

sound 1,0,20:goto 2510 


2570 söhupe b1$, he aa gosub 189. 


D:gosub 1460 

2580 char 0,34,5,"nach" 

2590 return er 

2600 rem zugbeschraenkung 

2610 ev=-0 

2620 if a$=a2$ and dr=1 then dr=2:g 
oto 3200 


2630 if a$=a2$ and dr=2 then dr=i:g 
oto 3200 


2640 if bo>13 then 2670 


2650 onbogosub2690, 2700,2710,2720,2 
730,2740,2750,2760,2770,2780,2790,2 
800,2810 

2660 return 

2670 bo=bo-13:0nbogosub2820, 2830,28 
40,2850, 2860, 2870, 2880, 2890,2900,29 
10,2920 

2680 bo=bo+i3:return 

2690 if a2$=-"a2"ora2$="bi"thenev=1: 
return:else, return 

2700 if a2$=-"al"ora2$=-"a3”"ora2$=-"a5 
"thenev=1:return:else return 

2710 if a2$=" ne VORBERS NNERBUINDE 1: 
return:else return 

2720 if a2$="b4"ora2$=" sarchunsgri: 
return:else return 

2730 if 32$="a4"ora2$="a6"ora2$=-"a2 | 
"ora2$="a8"thenev=1:return:else ret | 
urn 

2740 if a2$=-"a5"ora2$=-"b6”"thenev=i1: 


return:else return 


2750 if a2$="b7"ora2$="a8"thenev=1: 
return:else return 

2760 if a2$="a7"ora2$="a5"ora2$="a9 
"thenev=1:return:else return 

2770 if a2$="a8"ora2$="b9"thenev=1: 
return:else return 

2780 if a2$="a1"ora2$="c1"ora2$="b4A 
*"thenev=1:return:else return 


2790 if a2$="b1"ora2$="b7"ora2$="aA 


"ora2$="c4"thenev=1:return:else ret 
urn 

2800 if a2$="b4"ora2$="a7"ora2$="c7 
"thenev=1:return:else return 

2810 if a2$="b6"ora2$=-"a9"ora2$="c9 
"thenev=1:return:else return 

2820 if a2$="b9"ora2$="b3"ora2$="a6 
"ora2$="c6”"thenev=i:return:else ret 
urn 

2830 if a2$=-"b6"ora2$=-"a3"ora2$="c3 
"thenev=1:return:else return 

2840 if a2$="b1"ora2$="c2"thenev=1: 
return:else return 

2850 if a2$="c1"ora2$="c3"ora2$="c5 
"thenev=-I:return:else return 

2860 if a2$="c2"ora2$="b3"thenev=1: 
return:else return 

2870 if a2$="b4"ora2$="c5"thenev=l: 
return:else return 

2880 if a2$="cA"ora2$="c6"ora2$="c2 
"ora2$="cB”"thenev=i1:return:else ret 
urn 

2890 if a2$="c5"ora2$="b6"thenev=1: 
return:else return 

2900 if a2$="b7"ora2$=-"c8"thenev=i: 
return:elise return 

2910 if a2$="c7"ora2$="c9"ora2$=-"c53P 
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"thenev=1:return:else return 

2920 if a2$="c8"ora2$="b9"thenev=1: 

return:else return 

2930 rem steinentfernen##### 

2940 au=O0 

2950 sound 1,950,50:sound 2,850,50: 

for t=-1t0200:next:trap 2970 

2960 sound 1,150,50:sound 2,50,50 

2970 char 1,1,5,"welcher"”:char 1,1, 

7,”"stein ?"” 

2980 poke 239,0:getkey b$,z$:we$=b$ 

+z$:po=int((instr(ge$,we$) +1) /2) 

2990 if po=DO then sound 1,0,20:goto 
2970 

3000 if dr=1 then char 1,36,2,we$, 1 
:goto 3020 

3010 char 1,2,2,we$ 

3020 if f((asc(b$)-64) ,‚val( z$))=dr 
or f((asc{b$)-64) ,vallz$))=0 then 2 
960 

3030 for t=1to13000:next 

3040 gosub 3130 

3050 if au=1 then 3070 

3060 goto 2970 

3070 gosub 1420:gosub 1790: FLERROLR 
$) -64) ,val( z$)) =0:au=0 

3080 gshape ez$,x-10,y-30:char 0,1, 
5,”"welcher"”:char 0,1,7,”stein ?":go 
sub 1890 

3090 if dr=1 thengb=gb-1i:char 1,36, 
20,str$(gb), 1 

3100 if dr=2 then gw=gw-i:char 1,2, 
20, str$( gw) 

3110 return ß 

3120 rem upr zu steinentfernung** 
3130 graphic O,1:char 1,7,5,"ist di 
ese steinentnahme” 

3140 char 1,7,7,"”der regel gemaess 
2“ 

3150 if dr=1 then. va=2:else va=1 
3160 char 1,2,9,"”(von spieler”+str$ 
(va)+” zu beantworten)” 

3170 char 1,13,11,”"C3j/n)” 

3180 poke 239,0:getkey ri$:if ri$=" 
3” then au=1 x 

3190 graphic 1,0:return 

3200 rem schluss-siegerehrung*##* 
3210 color 0,2,0:color 4,2,0:graphi 
ce 1,1:graphic 0,1 

3220 if dr=ithen. n3$=n1$:else n3$=n 
2$ 

3230 color 1,4,5:for t=D0to24:char 1 
‚i,t,"gratuliere !":next 

3240 color 1,12,4:char 1,20,12,fa$+ 
n3$+fo$ j 

3250 color 1,8,5:char 1,25,4," 
r.! ! !":char 1,25,20, 


siege 
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3260 color 1,3,5:vol 8:sound1,7,480 
:sound2,770,480:gosub 3340 

3270 sound 1,7,120:sound 2,516, 120 
3280 sound 1,516, 120:sound 2,770,12 
Oo 

3290 sound 1,770, 150:sound 2,897,15 
O:fort= 1:02300: och 

3300 graphic 1,0::gosub 3380: Bene 
1,7,30:sound 2,516,30 

3310 sound 1,516, 200: sound 2,897,20 
0 

3320 fort=1t03:color1,7,5:circle1,1 
59,99,47:color1,12,5:circle1,159,99 
‚47:next 

3330 for t=1t04000:next:color D,2:c 
olor 

4,7,6:color 1,1:graphic DO,1:end 
3340 rem graphic - schlussehrung* 
3350 circle 1,159,99,90:circle1, 159 
‚99,89:circle 1,159,99,88 

3360 color 1,4,3:circle 1,159,99,63 
:circle 1,159,99,62:circle 1,159,99 
‚61 

3370 color 1,8,4:circle 1,159,99,36 
:circle 1,159,99,35:circle 1,159,99 
‚34:return 

3380 char 1,20-int({ ( len{ n3$) +1) /2), 
12,n3$ 
3390 char 
3400 char 


1,2,3,"sieger !" 
1,30,3,"sieger !” 

3410 char 1,2,21,”"sieger !"” 

3420 char 1,30,21,"”sieger !"” 

3430 return 

3440 graphic 0,1:color O,2:color 1, 
1:color 4,7,6:end 

3450 rem muehle ======-========== 
3470 rem 013387 bytes programm 
3480 rem 000000 bytes variables 
3490 rem 000000 bytes arrays 
3500 rem 000000 bytes strings 
3520 rem =-=-=-=-=-=-=-=-=-=--,,mmmmemenmenen 


KARTEN- 
SPIEL _ 


Das Spiel funktioniert 
nach den ‚„‚Bauern-Legen“ 
Regeln. Das Spiel hat 

32 Karten. Sie spielen ge- 
gen den Computer und er- 
halten 16 Karten, ebenso 
der Computer. Wer die 
meisten Bauern hat, be- 
ginnt. Es muß immer mit 
einem Bauern begonnen 
werden. Nachdem ein 
Bauer gelegt wurde, muß 
in der selben Farbe fort- 
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gefahren werden, und 
zwar in Rück- oder Vor- 
wärtsreihenfolge. Z.B. muß 
nach einem Herz-Bauer 
entweder Herz-Dame, Kö- 
nig, Ass usw. oder Zehn, 
Neun, Acht usw. gelegt 
werden. Hat ein Spieler 
keine passende Karte 
mehr, wechselt der Karten- 
leger. Wenn Sie keine 
Karte mehr legen können, 
geben Sie ‘* ein. 
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10 rem kartenspiel ===========-===p4 
20 rem (p) commodore welt 

40 rem (c) by cw team 

50 rem 

60 rem 


70 rem version 3.5 40z/ascii 
80 rem plus4 + 1531/1541 (c16/116) 


90 rem =--=>==-=-===222: == 2z=S2zme=mmemeoeom 


ER UEN 


100 wh$=chr$(5) :re$=chr$( 28) 

110 b1$=chr$( 31) :0e$=chr$( 129) 

120 1b$=chr$( 153) :db$=chr$( 154) 

130 yg$=chr$( 150) :pu$=chr$({ 156) 

140 ye$=chr$( 158) :s1$=chr$( 32) 

150 z1$=chr$( 96) :z3$=chr$( 123) 

160 z4$=chr$( 171) :z5$=chr$( 173) 

170 26$=chr$( 174) :z7$=chr$( 176) 

180 z8$=chr$( 177) : z9$=chr$t 178) 

190 za$=chr${ 179) :zb$=chr$( 189) 

200 zc$=chr$( 129) :zd$=chr$( 115) 

210 ze$=chr$( 120) : zf$=chr${ 122) 

220 zg$=chr$( 98) :zh$=chr$( 168) 

230 c1$=chr$( 157) :c2$=chr$( 145) 

240 c3$=chr$( 29) :c4$=chr$( 17) 

250 c1$=chr$( 147) :he$=chr$( 19) 

260 rn$=chr$( 18) :rf$=chr$( 146) 

270 forg=ito2:q42$=q2$+c4$:nextq 

280 forg=1t04:q44$=q4$+c4$:nextg 

290 forq=1t023:q53$=qa$+c4$:nextgq 
300 forg=1to3:gb$=gb$+z1$:nextgq 

310 forg=1t06:q946$=q96$+c3$:nextgq 

320 forgq=1t034:qd$=qd$+s1$:nextq 
330 forgq=1to10:yx$=yx$+zh$:nextgq 
340 ya$=-ya$+z27$+gb$+z9$+gb$+29$+gb$ 
+2z9$+gb$+z9$+gb$+z9$+gb$+z9$+gb$+Zz9 
$+gb$+z6$ 

350 yb$=yb$+z24$+gb$+z23$+gb$+z23$+gb$ 
+23$+gb$+23$+gb$+z3$+gb$+23$+gb$+Zz3 
$+gb$+za$ 

360 yc$=yc$+z5$+gb$+zZ8$+gb$+zZ8$+gb$ 
+z8$+gb$+z8$+gb$+z8$+gb$+z8$+gb$+zB 
$+gb$+zb$ 

370 yy$=yy$+s1$+c4$+c1$+s1$+c2$ 

380 yz$=yz$+s1$+s1$+s1$+cA$+c1$+c1$ 
+c1$+s1$+s1$+s1$+c2$ 

390 colorO, 1 

400 color4,1 

410..printc1$wh$ 

420 printhe$:fora=ito18:printtab( a) 
ye$rn$”"Zb"rf$si$rn$" bauern-legen * 
rf$s1$rn$”Sb":nexta / 

430 printg2$pu$"”kennst du die spiel 
regel....(j/n) 

440 printhe$:fora=1to18:printtab(a) 


yge$rn$"Zb"rf$” bauern-legen "rn$”5b - 


":nexta 
450 geta$:ifa$=""then420 


460 ifa$="n"then1790 

470 printcl$q4$g6$"ich mische die k 
arten” 

480 dima$( 33) ‚,b$( 33) ,c$[ 33) ,d$( 4,8) 
490 F$=he$+ga$ 

500 g$=qgd$ 

510 c$l 1)="a":c$l 2) ="K":c$l 3) ="d":c 
$L4)="b":c$(5)="z":c$[l 6) ="9":c$( 7) = 
"8 


520 c$(8)="7":b$( 1)=rn$+"A":b$(2)=r 
n$+"5":b$( 3) =rn$+"Z":b$[( 4) =rn$+"xX” 
530 d$=rf$+zg$+c4$+c1$+zg$+c2$:y=16 
540 i=1:fora=1t0o8:forb=1t04:a$l i)=b 
$Cb) +0c4$+c1$+c$( a) +c2$:i=i+1:nextb, 
a 

550 rem mischen und verteilen ### 
560 fora=1t032:b=rnd( 1) :ifb=1thenb= 
0.9999 

570 e=int(b*( 33-a)) +1:c$[la)=a$lc):c 
1=c0:a1$=a$( .c) 

580 ifc1>32-athen610 

590 a$l ci) =a$l c1+1) :c1=c1+1:goto580 
600 gotoS80 

610 a$lci)=al$:next 
620 fora=1t032:b$l a) ="":a$la)="":ne 
xta 

630 a=-0:forb=1t016:a=a+1:a$(b)=c$la 
) :a=a+1:b$(b)=c$(a) :next 

640 fora=1t033:c$( a) =yz$:next 

650 printcl$oe$:gosub660:goto860 
660 printhe$oe$; 

670 printtab( 31) rn$” 
680 printtab( 31) rn$"........ ":print 
tab( 32) c2$rn$s1$y 

690 printtab(31)rn$" karten "re$ 
700 fora=1t039:printzh$; :nexta:prin 
t 

710 printtab( 3)b1$ya$ 

720 bi=-0:fora=1t04 

730 printtab( 3) ;:forb=1t08:b1=b1+1: 
printd$; ye$c$(b1)b1$; :nextb:printd$ 
:print 

740 ifa<4thenprinttab( 3) yb$:nexta 
750 printtab( 3) yc$re$ 

760 fora=1t039:printzh$; :nexta:prin 
t1b$c4$" 

770 printtab( 3) ; :fora=1t016:printb$ 
(a)rf$s1$; :nexta:printre$c4$"” 

780 fora=1t039:printzh$; :nexta:prin 
tdb$cA$"” 


800 fora=-1to16:ifa$(l a) >""then830 
8i0 nexta 


820 printhe$cA$rn$wh$"” ich habe gew 
onnen "db$:end 

830 fora=1t016:ifasc(b$( a)) <>32then 
return 
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840 nexta 

850 printf$rn$1b$" du hast gewonnen 
"ye$”"gratuliere "db$:end 

860 fora=1to16:ifmid$(l a$l a) ,5,1)="b 
"theng=q+1 

870 nexta 

880 qi=int(2*#rnd({ 1) +1) 

890 ifg<2then930 

900 ifg>2then1280 

910 ifgq1=1then930 

920 ifq1i=-2then1280 

930 printf$"welche karte willst du 
legen "; 

940 c=0 

950 c=c+1 

960 geth$(c) :ifh$( c)=""then960 

970 ifh$(c)="*"thenprintf$g$:goto12 


980 a=asc(h$(c)) 

990 ifc=1thengoto1020 

1000 rem 

1010 rem 

1020 fora=1t0S5:getz$:nexta 

1030 ifc<2then950 

1040 c=0 

1050 fora=1t016 

1060 ifasc[(mid$( b$la),2,1))=ascl h$( 

1)) +128andmid$( b$( a) ,5, 1) =h$( 2) then 

1100 

1070 nexta 

1080 printfgrasues falsche eingabe 
EREEHREERITRN :fora=1t0999:nexta:pri 

ntf$g$ 

1090 goto930 


1100 m$=mid$(b$(a) ‚2,1) ın$-mid$ChbsC 


8),5,1) 

1110 EFwbn "Athena timdsade 

1120 ifm$="S"thena1=12:32=12 
1130 ifm$=-"Z"thena1l=20:a2=20 
1140 ifm$="X"thenal=28:a2=28 
1150 ifn$="a"thenal=al-2:32=a2-3 
1160 ifn$="k"thena1=3a1-1:32=a2-2 
1170 ifn$="d"thena2=a2-1 

1180 ifn$="b"theni240 

1190 ifn$="z"thena2=a2+1, 

1200 ifn$="9"thensl=a1l+1:a2=a2+2 
1210 ifn$="8"thenal=al+2:a2=a2+3 
1220 ifn$="7"thenal=al+r3:a?2=a2+4 
1230 ifasc( c$( 31) )=32then 1080 
1240 c$[a2)=b$([ a) +yy$+b$( a) 

1250 printf$g$:b$l a) =yy$ 

1260 gosub660:g0t01280 

1270 rem ##### computer #4 
1250 fora=1t016:i$= =mid$[( a$la) ,2,1): 
3$=-mid$( a$la),5,1) 

i290 ifa$(a)=""then1430 

1300 ifi$=-"A”"theni=1I 

1310 ifi$=-"S”"theni=?2 
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1320 ifi$="Z"theni=3 

1330 ifi$="X"theni=4 

1340 ifj$="a"thenj=1 

1350 ifj$="k"thenj=2 

1360 ifj$="d"thenj=3 

1370 ifj$="b"thenj=4 

1380 ifj$="z"thenj=5 

1390 ifj$="9"then j=6 

1400 if j$="8"then j=7 

1410 ifj$="7"thenj=8 

1420 d$(i,3j)=a$la) 

1430 nexta 

1440 z1=9:z=0 

1450 z=z+1:ifz=4then 1540 

1460 fora=1t04:i=a:j=0 

1470 ifd$la,z)>""then1490 

1480 nexta:goto1540 

1490 forb=4to1step-1:a1=a-1 

1500 ifasc( c$( a1#8+b) ) <>32then 1520 
1510 ifd$(la,b)>""andasc( c$( a1#8+b+1 
)) <>32then j=b:got01700 

1520 nextb 

1530 goto1480 

1540 z1=21-1:ifz21=4then 1630 

1550 fora=1to4:i=a:j=0 

1560 ifd$(a,z1)>""then1580 

1570 nexta:goto1450 

1580 forb=4t08:a1=a-1 

1590 ifasc(c$( a1*8+b)) <>32then1610 
1600 ifd$( a,b) >""andasc( c$( a1#8+b-1 
)) <>32then j=b:g0t01700 

1610 nextb 

1620 goto1570 

1630 fora=1t04 

1640 ifd$(a,4)>""theni=a: j=4:g0t017 


1650 nexta 
1660 printhe$c4$"kann keine karte 1 


1670 fora=1t0o1500:nexta 
1680 printhe$c4$” 


1690 goto930 

1700 y=-y-1 

1710 printhe$c4$"ich lege "; 
1720 fora=1t016 

1730 ifa$la)> =d$(i,Jj)then1750 

1740 nexta 

1750 i11=i-1:c$( 11#8+3J)=a$l a) +s1$+c4A 
$+c1$+s1$+c2$+aßl a) 

1760 printrn$mid$( a$( a) ,2, 1)mid$( a$ 
(a),5,1) 

1770 a$la)="":d$li,j)=" 

1780 gosub660:g0t0930 

1790 printcl$ 

1800 printchr$( 14) tab( 12) wh$"SPIELR 


. EGELN 


1810, printtabl 12) yx$ 


ruhen u 


A 


Kartenspiel - 3 _— Kopfdaeten — q —_ 


1820 printcA$”"Das Spiel "ye$”BAUER 
N-LEGEN”"db$”" hat 32 Karten. 

1830 printcA$”"davon bekommst Du 1 
6 Karten und ich 

1840 printc4A$”i6 Karten. 

1850 printc4$"Wer die meisten Ba 
uern hat, beginnt. 

1860 printc4$”"Es muss immer mit ein 

em Bauern begonnen 

1870 printc4A$"”"werden. Z.B. wenn Du 
PIK-BAUER legst, 

1880 printc4$”dann kannst Du PIK 

-DAME, dann PIK- 

1890 printc4$"KOENIG und danach PI 
K-ASS legen oder 

1900 printc4$"von PIK-BAUER, PIK-ZE 

HN, NEUN, ACHT bis 
1910 printc4$"SIEBEN rate (ae Aeiıe "En$uh 
$"Hast Du gelesen ?"rf$"” (J) 
1920 geta$:ifa$=""then1920 

1930 printc1l$c4A$db$"Gewonnen hat de 
r, der zuerst alle seine 

1940 printc4$"”Karten abgelegt hat. 
1950 printc4$"”Du kannst immer nur 
eine Karte legen. 

1960 printc4$"Wenn Du keine Karte 
legen kannst, gib 

1970 printc4$"bitte ’"wh$”*"db$"”" e 
in, sonst: 


10 rem kopfdaten c16/116/p4A 
20 rem (p) cbm-revue team = 
40 rem (c) = 
50 rem by — 
60 rem bernd welte = 
70 rem = 
80 rem ci6 / ci16 / plus 4 = 


100 wh$=chr$(5) :rt$=chr$( 13) 

110 c4$=chr$( 17) :rn$=chr$( 18) 
120 he$=chr$( 19) :de$=chr$( 20) 
130 re$=chr$( 28) :c3$=chr$( 29) 
140 gr$=chr$( 30) :b1$=chr$( 31) 
150 si$=chr$( 32) :bk$=chr$( 144) 
160 c2$=chr${ 145) :rf$=chr$( 146) 
170 c1$=chr$( 147) :pu$=chr$( 156) 
180 c1$=chr${( 157) :ye$=chr$( 158) 
190 cy$=chr$t( 159) :s2$=chr$( 160) 
200 forgq=1t03:q93$=q93$+c4$:nextq 
.210 forg=1t05:q95$=q5$+c4$:nextgq 
220 forg=1t017:gb$=gb$+s1$:nextq 
230 forg=-1to1l4:qc$=qce$+si$:nextgq 
240 forg=-1to11:qd$=qd$+s1$:nextg 
250 cu=65520: ze=2035: sp=2036 

260 printcl$rn$; 

270 print "RRRRBHRSBRRRSRRSISIEIESSIIEIENFSEN 
HRRRRRRRERRIISIE" - 


1980 printc4$"herz = "wh$”"s”db$" : 280 print"#..... ET A nr 
pik...= "uhg"ardb$"..." 000 zz r Hr en a". 

1990 printc4$"karo = "wh$"z"db$" : 290 print"*..:.:-:0s% a&6b welte soft 
kreuz = "wh$”"x”"db$"...” warß..-»- ee 

2000 printc4$ye$"Beispiel"db$": pik [200 print ee are een 
2010 ae ne = 310 Print Re 
Saikrabi-dans = Kd ARRSHRRREISEIENE" - 

2020 printc4$rn$wh$"KOENNEN WIR BEG | ?20 printrf$"..... EEEEEZELELZEZEZE 
INNEN?"rTFS" 0... (4) EI TE = 

2030 geta$:ifa$=""then2030 330 print"..... PEREE EEE ESTER 
2040 printchr$( 142) :goto470 aut ar Be EEE - 

2050 rem kartenspiel ============p4 340 print"”..... An ar Bi tkopfdaten* 
2060 rem 060671 bytes memory zu I +. nennen nn 3 

2070 rem 006055 bytes programm == | 350 print"..... zerernen HR 
2080 rem 000000 bytes variables == | --------- rer... > 

2090 rem 000000 bytes arrays == [| 360 print"..... LESEN Er er 
2100 rem 000000 bytes strings == | ---serennnnnnnn ; 

2110 rem 054616 bytes fre (0) == | 370 print"..... Kan mug nen nd ne 
2120 rem Kb Se en een re a near gie m EEE vo ve eo 00 0 > 


390 Grint*. .. zum finden der anfangs 
adressen von...”; 
400 print” 
410 Gran. diehstten- und kassett 
enprogrammen...”; 

420 print”. 1.2000 40. nun rinnen nee ae 


COMMODORE-WELT 
DAS WIRKLICH 


UNABHÄNGIGE 
USER-MAGAZIN 


Kopfdaten 


een! 
450 print®..112.2.....01) diskette. 
a nen 
490 print”. \\12.2.....02) Kassette. 
Re ep 
u See ee Fee ee 


500 getkeya$ 

510 ifa$="1"thenS30 

520 ifa$="2"then?60 

530 printcl$rn$"............. disket 
ten-daten...u en csoueus "rf$ 

540 printg3$gqc$rn$”"programmname”:pr 
int :inputpr$ 

550 open8,8,8,pr$:get#8,a$,b$:close 
8 

S60 a=asc( a$+chr$(0)) :b=asc( b$+chr$ 
(0)) :d=a+256%b : gosub650 

570 pokeze, 10:pokesp,O:syscu 

580: print”... ... startadressen des 

programm....:.. ” 

590 printc4$cA$qd$"” dezimal=-"d 

600 printc4$gb$"hex= " 

610 printa5$"”.......... neue daten ? 


620 getkeyx$ 

630 ifx$="j"then530 

640 ifx$="n"then260 

650 pokeze, 14:pokesp,22:syscu 
660 b=int( d/256) :gosub700 
670 printh$; 

680 b=d-b#256 :gosub?00 

690 printh$; 

700 1=band15:h=( band240) /16 
710 ifh>9thenh=h+55 :g0t0730 
720 h=h+48 

730 ifl>9thenl=1+55:g0t0750 
740 1=1+48 

750 h$=chr$( h) +chr$( 1) :return 
760 printcl$rn$"”............. bandko 
sr -daten.aunls:ssuce. "rf$ 
770 z=z+1 

780 open1,1,0 

790 t=peek( 819) 

800 ift=ithent$="basic pgm"” 
810 ift=3thent$="masch. pgm" 
820 ift=4thent$="daten-fFile" 
830 a=peek({ 820) +peek( 821) #256 
840 e=peek({ 822) +peek( 823) #256 
850 1l=-e-a 


860 n$="":fori=824t01010 
870 n$=n$+chr$( peek(i)) 


880 next 
BI0U  printg5S”" .. . u .ucu ee "2”.programm 
900 print:print” typ ."5c$ 


910 print:ift<>4thenprint” laenge.. 


:";1”"byte":print 


920 print" anf.adr.:";a 
930 printc4$"” name & 
940 printgSs$"”..... 
BE CIUI Ede 


950 getkeya$ 


960 ifa$="j"thenclose1:g0t0760 
970 ifa$="n"thenclose1:g0t0260 


980 rem kopfdaten 


990 rem 60671 bytes memory 
1000 rem 03557 bytes programm 
1010 rem 00000 bytes variables 
1020 rem 00000 bytes arrays 
1030 rem 00000 bytes strings 
1040 rem 57474 bytes free 

1050 rem ========= 


16/116/p4 


KOPFDATEN 


Dieses Programm sucht 
die Anfangsadressen von 
Programmen, welche auf 
Diskette oder Kassette 
gespeichert sind. 
Nach der Wahl des ge- 


- wünschten Speicherme- 


diums, Kassette oder Dis- 
kette, muß der Programm- 
name eingegeben werden. 
Der Rechner sucht nun 
das gewünschte Programm 
und gibt die dezimalen 
und hexadezimalen Start- 


adressen aus. Nachdem 
dies geschehen ist, kön- 
nen entweder neue Dis- 
kettenprogramme ge- 
sucht werden oder Kopf- 
daten von neuem begon- 
nen werden. Bei Abfrage 
von Kassettenprogram- 
men wird zusätzlich eine 
Information über die Pro- 
grammart gegeben: 
Maschinenprogramm, 
Basicprogramm oder 
Datenfile. 


VIDEODATEI 


Das Spezialprogramm für 
alle Videofreaks, die end- 
lich einmal Ordnung in 
ihren Videokassettenhau- 
fen bringen wollen. Auf 
dem Monitor werden die 
Menüs dargestellt, unter 
denen dann der gewünsch- 
te Programmpunkt aus- 
gewählt wird. Sie können 
nach beliebigen Gesichts- 


„punkten wie Titel, Film- 


art oder Regisseur sortie- 
ren und auch einzelne 


Daten abfragen. Damit Sie 
nicht jedesmal das Pro- 
gramm zu laden brauchen, 
wenn Sie bestimmte In- 
formationen über Ihr 
Videoarchiv benötigen, ist 
im Programm eine Druck- 
routine eingebaut, mit- 
teis welcher Sie sich Ihr 
gesamtes Archiv, aber 
auch lediglich einzelne 
Datensätze in sauberer 
Form, auf den Drucker 
ausgeben lassen können. 


ss ar ia ao AI 9 a 


| 


videodateiüi 


videodatei a Te ns 
(p) by commodore welt = 


10 rem 
20 rem 
30 rem 
40 rem (c) by = 
50 rem peter ludwig = 
6560 rem Z 
70 rem version 3.5 40z/ascii = 


80 rem c16/plus 4+1531/1541+druck..= 
90 rem =-==-==-=-=-===2 === === 2222 === 20202 == 
c4$=chr$( 17) :re$=chr$( 28) 
er$=chr$( 30) :bk$=chr$( 144) 
oe$=chr${ 129) :br$=chr$t( 149) 
Ir$=chr${ 151) :bg$=chr$( 152) 
db$=chr$( 152) 
rn$=chr$( 18) :rf$=chr$( 146) 
z1$=chr$( 108) :z2$=chr$( 111) 
z3$=chr$( 112) :z4$=chr$( 186) 
z5$=chr$( 165) :z6$=chr${ 167) 
z7$=chr$( 42) :z8$=chr$( 61) 
z29$=chr$( 183) : za$=chr$( 175) 
forg=1t05:q95$=q95$+c4$:nextgq 
forg=-1t017:q8$=qga$+z9$:nextq 
forg=1t08:q98$=q8$+c4$:nextgq 
forg=1t017:gb$=gb$+za$:nextq 
b1$=b1$+z2$+ga$+z3$ 
b2$=b2$+25$+y8$ 
b3$=b3$+z1$+gb$+z4$ 

color 0,8 


290 color 4,16,5 

300 dim d$(50,7?) :remvideodatentabel 
le 

310 pt$( 1)=" datei laden > 

320 pt$(2)=" datei speichern " 

330 pt${(3)=" daten eingeben 

340 pt$(4)=" daten aendern re 

350 pt$(5)=" daten loeschen " 

360 pt${6)=" daten ausgeben " 

370 pt$(7)=" programm beenden" 

380 F$(1)= "videosystem: "” 

390 f$[2)= "kassette nr. "” 

400 F$L3)= "titel 2 

410 F$(4)= "zaehlwerk : "” 

420 fF$(5)= "regie Eee 

430 f$(6)= "laufzeit 58 

440 f$(?7)= "filmart u 

450 key 1,"v":rem vorwearts 

460 key 2,”r":rem rueckwearts 

470 key 3,"a”:rem aendern 

480 key 8,”"m":rem menue 

490 goto 810 

S00 rem HHARHHAHRHRHRRRI 

510 rem programmkopf 

520 rem Hr ra 

530 print chr$( 147); 

540 for i=1 to 40:printrn$db$ ;:nex 
t ! 

550 printrn$re$"......-...- videover 
WOLILUNG = 2.:548 2:5 u - 


560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 


for i=1 to 40:printrn$db$; :next 
print:print 

return 

rem HHrreeeretee 

rem fehlermeldung 
rem Hrn 
char ,i1,24,fe$ 

for i=1 to 1000:next 

char ‚1,24,” 

return 

rem HF 

rem koepfe programmmteile 

rem #RHHter ee 
gosub 500 

char ,10,5,b1$ 

char ,10,6,b2$+pt$( f) +z6$ 
char ,10,7,b3$ 

return 

rem #4 EHE HEHE 

rem daten im rechner 

rem Hertha 
fe$="keine daten im rechner!" 
gosub 590 

return 2 
next y 

810 gosub 500 

820 print NotoeltcetcottotetcH-#Hototo-tote 
#et-#Ho-#t-to-t=-4=-r" 


830 printrn$re$".......... programmf 
840 pr i £ " ne eereneuinee 
#et=-#-#H=-#4=-#t-r-#" 


850 print 

860 printrn$db$c4$"-1- videodaten 1 
den suriasw: aaa ie 

870 printrn$gr$c4$"-2- videodaten s 
BELCHErN. nee te ee ® 

880 printrn$re$c4$"-3- videodaten e 
Iingeben;. zu. 0. ine. am wg Ss 

890 printrn$bg$c4$"-4- videodaten a 
SHIABSTTI. AR er aaa 2 

900 printrn$oe$c4$"”-5- videodaten 1 
BBSchen: -.- - nein anne = 

910 printrn$br$cA4$"-6- videodaten a 
usgeben..- rss 2,200. se Kiler ” 

920 printrn$ir$c4$"-?7- programm bee 
NIeNn = uwe a0 a0 58 ans wtoyee ale 2 

930 print 


940 printchr${ 130) rn$db$rf$; :input 
"ihre wahl (1-7): ";f 

950 if f=o or f>? thenprintrn$db$rf 
$fe$="diese zahl ist ungueltig !":g 
osub 590:goto 810 

960 on f goto 980, 1180, 1390, 1610,18 
30,2140, 2490 

970 printrn$db$:input 
:";d$lzz,x) 

980 rem Haste 


"neuer inhalt 


79 


videodateäj' 


990 rem datei laden 

1000 remttrursstueteeet rer 

1010 gosub 660:print:print 

1020 printrn$re$"”..... bitte datenka 
ssette einlegen und...”; 
1030 print 


1040 printrn$re$"........... zurueck 
SBUTIEN N... 0a ee ar 

1050 print 

1060 printrn$db$:input”danach retur 
nadrueckenz....ecnes cc emo ".x$ 


1070 open 1,1,0 
1080 inputf#1,z 
1090 for y=1 to z 
1100 for i=1 to ? 
1110 input#1,d$(y,i) 
1120 next i 

1130 next y 

1140 close 1 


1150 print:printrn$db$"daten arg g 


‚"videodatei” 


1160 for x=1 ei 2000:next 

1170 goto 810 

1180 rem PHRHAHHRRRHRRRRRHRREN 

1190 rem datei speichern 

1200 rem #2 

1210 gosub 660: print:print 

1220 if z=o then gosub 740:goto 810 
1230 printrn$db$"bitte cassette ein 


1240 print 
1250 printrn$db$"zurueckepulen!.... 


.-.n 21 e 0.00.» 


1260 print 


1270 printrn$db$: input” danach retur 


NIOTUBCKEN.: 0a ee nee "ıx$ 
1280 open 1,1,1, "‚ideodaten" 

1290 printf#1,z 

1300 for y=1 to z 

1310 for i=-1 to 7 

1320 print# 1,d$(y,i) 

1330 next i 

1340 next y 

1350 close 1 

1360 print: printrn$db$"daten „ins 8 
1370 for x=1 to 2000:next 

1380 goto 810 

1390 rem Frans neshoenennangauanen 
1400 rem videodaten eingeben 
1410 rem Franunnenueeenengateene 
1420 gosub 660 

1430 z=z+19 

1440 print:print 

1450 for i=-1 to 7? 

1460 printrn$db$rf$r$(i); 

1470 input dsl 2; i) 

1480 next 


80 


ee ee, ,e em 


1490 print:print 

1500 printrn$re$"daten richtig eing 
egeben....( j/n)....... ie 
1510 x$="":input x$ 

1520 if x$="j"” then 1550 

1530 if x$="n"” then z=z-1:goto 1390 
1540 print chr$( 145) ;:goto 1500 E 
1550 printrn$db$"noch freier speich 
erplatz"rf$:print fre(0) 

1560 printrn$re$c4$"weitere eingabe 


RN a REN: “.. 
1570 x$="":input x$ 
1580 if x$="j" then 1390 


1590 if er " then 810 
1600 print chr$( 145) ;:goto 1550 
1610 rem FHRuauurr ee 


1620 rem videodaten aendern 
1630 rem Zt sneeuonennenengergen 
1640 zz=1 

1650 gosub 660 

1660 print :print 

1670 if z=O then gosub 740:goto 810 
1680 for i=1 to 7? 

1690 printi; rn$db$rf$r$(i); d${ zz,i) 
1700 next 

1710 get x$:if x$="" then 1710 

1720 if x$="m” then 810 

1730 if x$="v" and zz<z then 22=22+ 
i:goto 1650 
1740 if x$=" 
1:goto 1650 
1750 if x$="a" then 1770 


II EEE Nee ee eingabefehle 
r!":gosub 590:goto 1710 
1770 print:print 


1780 printrn$db$: input "feldnummer( 
Ve u u a ar en ah nenn ER. 


1790 if x<1 or x>7 then print chr$f 
145) ;:goto 1780 

1800 print :print 

1810 printrn$db$:input "neuer inhal 
3 Se a See Te A a Pie Aa ae Fre eheare ":d$(z 


1820 goto 1650 

1830 rem ##runnersunseueneeeeaeee 
1840 rem videodaten loeschen 
1850 rem #HrHtturerurueneetenuenen 
1860 gosub 660 

1870 print:print 

1880 if z=0 then gosub 740 :goto 81 


r" and zz>1 then zz=zz- 


1890 printrn$db$: input”cassetten nr 
Era nl a a ER ine ee ie ";d1$ 


„un 2... 


1920 if d$(x,2)=d1$ and d$(x,3)=d2$ 
then 1960 


NNRNNRANTNNNENNNSNNNN 


2: 


Videodatei 


330 
940 
350 
960 
970 
1980 
990 


if x<z then x=x+1:goto 1920 
fe$="titel nicht gefunden!” 
gosub 590:goto 810 

gosub 660: print:print 

for i=1 to 7? 

print fF$li);d$(x,i) 

next 

2000 print:print 

2010 printrn$re$:input"”filmtitel lo 
eschen( j/n) .";x$ 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 


if x$="3j" then 2050 

if x$="n" then 810 

print chr$( 145) ;:goto 2010 

for y=x to z-1 

for i=1 to ? 

d$ly,i)=d$l y+1,i) 

next i 

next y 

z=2-1 

goto B1O 

dioad”* 

dload"”* 

rem PBRRRRRAHRHRISHRREEN 

rem videodaten ausgeben 

rem HERR 
gosub 660:print:print 

2180 if z=0O then gosub 650:goto 810 
2190 printrn$db$:input"drucker oder 
bildschirm( d/b) ";g$ 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 


if g$="d"then open 1,4 
gosub 660:print:print 
printrn$db$"suchbegriffe:" 
print NE =#=8cHotot=" 
print 

for i=1 to 7? 

s$l i)="" 
printrn$db$rf$f$(i); 
input s$(i) 

next 

for y=1 to z 

s=0 

for i=1 to ? 


2330 if s$li)=""or s$li)=d${ y,i)the 
n s=s+t1 

2340 next i 

2350 if s<>7 then 2430 

2360 if g$="d”"then printf#1 

2370 if g$="b"then gosub 660:print 
2380 for i=1 to 7 

2390 if g$="b" thenprintrn$db$rf$f$ 


(i);d$Cy,i) 

2400 if g$="d” then print#1,f$li);d 
$ty,i) 

2410 next i 

2420 print:printrn$re$gq8$:input"”dru 
ecken return";x$ 

2430 next y 

2440 gosub 660:print:print 


2450 printrn$db$gq5$"=#=#=-#=#=#=#=#d 
ateiende=#=#=-#=-#=-#=-4-4=4#=" 

2460 print:printrn$re$gq8$:input"dru 
ecken sie return";x$ 


2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
sichert...(3j/n) 
2550 input x$ 

2560 
2570 
2580 
2590 
2600 


goto 810 


rem 
rem 


if g$="d"then close 1 


rem FRRRRRRRRRHHRHHRHEFIEIEIEN 


programm beenden 
IHHHHRHHRRRHRHTISHIEISNE ENTE 
gosub 660:print:print 
if z=O then 2640 
printrn$db$"sind alle daten ge 


if x$="n" then 810 
if x$="j" then 2590 
print chr$( 145); 
gosub 660:print:print 

printrn$db$c4A$”das PFogr. kann 
mit goto........ .... 


:goto 2540 


2610 printrn$db$cA$”500. „gestartet 


werden: =... us 


2620 
ste! 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 


print:print 
end 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 


012277 


videodatei 
bytes 


zszz=======:=2016 
memory 
programm = 
variables= 
arrays = 
strings 
free( 0) 


KAUFMANN 


Dieses Programm stellt 
eine hervorragende Hilfe 
für all diejenigen dar, die 
Auftragsbestätigungen, 
Lieferscheine, Rechnun- 
gen, Mahnungen oder 
Adreßaufkleber erstellen 
müssen. Mit Hilfe eines 
Druckers können Sie nun 
optisch einwandfreie 
Dokumente erstellen, um 
diese für geschäftliche 
Zwecke zu verwenden. 
Das Programm verwendet 
eine Menü-orientierte 
Eingabemaske, bei 

der alle erforderlichen 
Daten abgefragt und zur 
Ausgabe aufbereitet wer- 
den. Zur Errechnung einer 
Gesamtsumme oder der 
Mehrwertsteuer beispiels- 
weise brauchen Sie ledig- 
lich die Warenmenge und 


den können. 


den Einzelpreis einzuge- 
ben, die Zwischen-, End- 
und Mehrwertsteuerwerte 
werden automatisch er- 
rechnet und auf das Form- 
blatt gedruckt. Weiter- 

hin besteht die Möglich- 
keit, zu jedem Warenpunkt 
einen Text hinzuzufügen, 
die Versandform zusätz- 
lich abzudrucken usw. 

Die einzelnen Menüs sind 
übersichtlich gehalten und 
leicht verständlich. Bitte 
beachten Sie: In die 
Listingszeilen, in welchen 
die Bankform (gekenn- 
zeichnet mit Punkten) 
gespeichert ist, müssen 

Sie Ihre persönlichen Kon- 
ten und BLZ-Daten ein- 
fügen, damit diese auf den 
Belegen verwendet wer- 


81 


Kaufmann 


10 rem kaufmann ============6.16/p4 
20 rem (p) commodore welt 6 
30 rem ========-=-=-=2====== === ==. 
40 rem (c) = 
50 rem a.huebner = 
60 rem = 
70 rem version 3.5 40z/ascii = 
80 rem c16/plus4 + 1531/1541 +dru- 
9D rem =-===-==-====== === === meme 


100 ci$=chr$( 47) :s1$=chr${ 32) 
110 z1$=chr$( 45) : z2$=chr$( 61) 
120 z3$=chr$( 164) : zA$=chr$( 42) 
130 forg=1t021:q91$=q1$+z1$:nextg 
140 forgq=1t025:q2$=q2$+z1$:nextq 
150 forg=1t027:q493$=q3$+z21$:nextg 
160 forq=1t038:q94$=q4$+z23$:nextq 
170 forg=1t038:940$=q90$+s1$:nextgq 
180 forq=1t040:45$=q5$+z1$:nextgq 
190 forg=1t047:96$=q96$+z1$:nextq 
200 forg=1t05:q47$=q97$+s1$:nextq 
210 qa$=ga$+z4$+q40$+z4$ 

220 color 0,1 : color 4,1 

230 printchr$( 159) 

240 close 4,4 

250 let c=O 

260 let sus=O 

270 printel$:fort=1t040:print”*#";:n 


280 printga$ 

290 print”®...... programm zur erste 
ilung von..... r 

300 printga$ 


310 print"#...... auftragsbestaetigu 


HEEN.- 0. nr #" 

320 printga$ 

330 print"”#...... rechnungen / liefe 
rschein....... a” 


350 print”#...... mahnbrief......... 


370 print"#...... adressaufkleber... 
380 printga$ E 
390 for t = 1 to 40 : print "#";:ne 


400 printga$ 

410 print”#..... - copy by a. huebn 
420 printgqa$ 

430 printga$ 

440 for t=1 t040: print "*";:next 

450 print"”* erstellt auf commodore 
plusf/4.:..... ne 

460 for t =1t040: print "*";:next 

470 print:for t =1to A0: print "*"; 
next 
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CCÖ—6eeeeeeeeeeeeeeee un 


480 for a = 1 to 3500 : next a : pr 
int”"S5” : goto 2650 

a90 : 

500 : 

510 rem eingabe 

520 : 

530 printcl$ : input"tagesdatum (tt 
.mm.JJ3IJI)";t$ £ 
540 printc1l$ : input"”anrede des kun 
den"”;3$ 

550 printc1l1$ : input"vorname und na 
chname”;n$ 

560 printcl$ : input"”strasse und ha 
usnr.”;s$ 

570 printc1$ : input”plz mit wohnor 


t”";w$ 
580 if a= 1 goto 2890 : ifa=3 
goto 2930 - 


590 if ad = 1 goto 1480 

600 printc1$ : if wahl$ = "1" then 
input"”lieferzeitangabe ca. ... ";li 
ef$ 

610 printcl$ if wahl$ = "1" then 
input"auftrags-nr.: ";auf$ 

620 printcl1$ : if wahl$ = "2” then 
input"rechnungs.-nr."”;r$ 

630 print"eingabe zur artikelbezeic 
hnung"” :print:print 

640 input”anzahl der artikel (max.5S 
) ":cx$ R 
650 if cx$ = "1" then gosub 710:got 
o 780 

660 if cx$ = "2" then gosub 710:gos 
ub720 : goto 780 

670 if cx$ = "3" then gosub 710:gos 
ub720:gosub730:goto 780 

680 if cx$ = "4" then gosub 710:gos 
ub?720:gosub730: gosub?740: goto780 

690 if cx$ = "5" then gosub 710:gos 
ub720:gosub730:gosub?740:gosub?750:go 
to780 

700 printcl$ 

710 input"text artikel 1 ";b$ : ret 
urn 

720 input"text artikel 2 ";b1$: ret 
urn 

730 input"”text artikel 3 ";b2$: ret 
urn 

740 input"text artikel 4 ";b3$: ret 
urn 

750 input"”text artikel 5 ";b4$: ret 
urn 

760 

770 : 

780 printc1l$ 

790 print"eingabe zur artikelmenge 


800 if cx$ = "1" then gosub 850 : g 
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00900 

810 if cx$ = 
ub860:g0t0900 
820 if cx$ = "3" then gosub B50:gos 
ub860:gosub870:g0t0900 

830 if cx$ = "A" then gosub 850:gos 
ub860: gaosub870: gosub880: g0t0900 

840 if cx$ = "5" then gosub 850:gos 
ub860:gosub870:gosub880:gosub890: go 
to900 : Ä 

850 input"menge artikel 1";o1:retur 
n 
860 
n 
870 
n 
880 
n 
890 
n 
900 : 

910 printcl1$ 

920 print"eingabe zum einzelpreis j 
e artikel":print 
930 if cx$ = "1" then 
to1060 

940 if cx$ = "2" 
ub990: g0ot0o1060 


"2" then gosub 850:gos 


input"menge artikel 2";12:retur 


input"menge artikel 3";g3:retur 
input”menge artikel 4";f4:retur 


input”menge artikel 5";yS5:retur 


gosub 980: go 


then gosub 980:gos 


950 if cx$ = "3" then gosub 980:gos 
ub990:gosub1000: goto 1060 
960 if cx$ = "4" then gosub 980:gos 


ub990: gosub 1000: gosub 1010: 
8) 

970 if cx$ = "5" then gosub 980:gos 
ub990:gosub 1000: gosub 1010: gosub 1020 
: goto1060 

980 input"einzelpreis artikel 1";e1l 
s:return 

990 input"einzelpreis artikel 2";e2 
s:return 

1000 input”"einzelpreis artikel 3";e 
3s:return 

1010 input”einzelpreis artikel 4";e 
As:return 

1020 input"einzelpreis artikel 5";e 
Ss:return 

1030 : 

1040 : 

1050 : 
1060 printel$:printqS$:print 

1070 input”kundenversandkosten ";vk 
1080 : de 
1090 input"versandform ";up$ 

1100 input”"zahlungsbedingungen"; z$ 
1110 rem 
1120 rem berechnung einzelwerte 
1130 x1=vtol 

1140 x2=v+12 


goto 106 


nn 


1540 


x3=vVtg3 
xsA=v+fA 
x5=vV+ry5 
a=eils*x1 
b=se2s#x2 
e=-e3s#x3 
d=se4s#x4 
e=-e5Ss*#x5 


rem -==- 
rem -- + 

x»6=-atb+tc+td+te+tvk 

x7=x6*100/114 

x8=x6-x7: 
printcl$:print:print:print:pri 


print "” es 


erfolgt der ausdruc 
printq2$ 
if wahl$ 
if wahl$ 


‘N 


"4" then open 4,4 
"2" then open 4,4 


u 


rem chr$( 14) .sperrschrift ein 
print#4,chr$( 14) "------------ N 


print#4,chr$( 15)" 
printf#4,chr$( 15)” 
print#4,chr$( 15)” 
print#4,chr$( 15)” 
print#4,chr$( 15)" 
print#4,chr$( 10) 
print#4,chr$( 16) "06";a$ 
printf#4,chr$( 16) "06" ;n$ 
print#4,chr$( 16) "06" ;s$ 
print#4,chr$( 15)" 
print#4,chr$( 16) "06" ;w$ 
print#4,chr$( 15) : if ad = 1g 


oto 3390 


1550 
1560 
1570 
1580 
1590 
1500 
1610 


print#4,chr$( 15)" 
print#4,chr$( 15)" 
print#4,chr$( 15)" 
printf#4,chr$( 15)" 

if ma = i then 1640 

rem schreiben rechnungsnr. 

if wahl$ = "1" then printf#4,ch 


r$( 14) "“auftragsbestaetigung nr.:.."” 
;auf$ 


1620 


if wahl$ = "1" then print#4,ch2® 
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r$( 15)"lieferzeit ca. .. ";lief$ 
1630 if wahl$ = "2" then printf#4,ch 
r$( 14) "rechnung-nr.:";r$ 

1640 printf#4,chr$( 15)” 

1650 print#4,chr$( 15)” 

1660 rem kopfzeile 

1670 printf#4,chr$( 10); 

1680 print#4,chr$( 16) "64" ;t$” 

1690 print#4,chr$t{ 15)” 

1700 if ma = 1 then 3010 

1710 print#4,chr$t( 15)” 

1720 printf#4,chr$( 15)" 

1730 print#4,chr$( 10); | 

1740 print#4,chr$( 16) "OObezeichnung 
";chr$( 16) "2S5menge" ;chr$( 16) "A6einz 
el"”;chr$( 16) "69dm" 

1750 print#4,chr${ 16) "46preis";chr$ 
( 16) "69gesamt” 

1760 print#4,chr$( 14) q4$ 

1770 printf#4,chr$( 15)” 

1780 printf4,chr$( 15)” 

1790 if wahl$ = "2" then print#4,ch 
r$( 15)"sie erhalten heute per ";up$ 
1800 print#4,chr$( 15)” 

1810 print#4,chr$( 16) "00---"” 

1820 print#4,chr$t{ 15)” 


1830 if cx$ = "1" then gosub 1890 : 
goto 2240 

1840 if cx$ = "2” then gosub 1890:g 
osub 1960 goto 2240 

1850 if cx$ = "3" then gosub 1890:g 

osub1960 : gosub 2030 : goto 2240 
1860 if cx$ = "4" then gosub 1890:g 

osub1960 : gosub 2030 : gosub 2100 

goto 2240 


1870 if cx$ = "5" then gosub 1890:g 
osub 1960: gosub2030 : gosub2100:: gosub2 
170:goto2240 

1880 print#4,chr$( 10)” 

1890 print#4,chr$( 16) "00" ;b$; 

1900 print#4,chr$( 16) "25"; 

1910 print#4,using "#4" ;01; 

1920 print#4,chr$( 16) "46"; 

1930 print#4,using "AHHHh.HH-" eis; 
1940 print#4,chr$( 16) "69"; 

1950 print#4,using "AHHHH .BH-";a : 
return 

1960 print#4,chr$( 16) "00" ;b1$; 

1970 print#4,chr$( 16) "25"; 

1980 print#4 using "##";12; 

1990 print#4,chr$( 16) "46"; 

2000 print#4,using "HH HH-" ;e2s; 
2010 print#4,chr$( 16) "69"; 

2020 print#4,using "HHHHH.HH-";b : 
return 

2030 print#4,chr$( 16) "00" ;b2$; 

2040 print#4,chr$( 16) "25”; 

2050 printf#4,using "##";g3; 
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. 2340 


2060 print#4,chr$( 16) "46"; 

2070 printf#4,using "Aut HH-” ;e3s; 

2080 print#4,chr$( 16) "69"; 

2090 print#4,using "HAHRHRBH-";c 

return Ze 

2100 print#4,chr$( 16) "00" ;b3$; 

2110 print#4,chr${ 16) "25"; 

2120 printf#4,using "##”;F4; 

2130 print#4,chr$( 16) "46"; 

2140 print#4,using "HAAR .HH-" ;eäs; 

2150 print#4,chr$( 16) "69"; 

2160 printf#4,using "HHRHB AH" ;c 

return 

2170 print#4,chr$( 16) "00”;b4$; 

2180 print#4,chr$( 16) "25"; 

2190 printf#4,using "AH" ;y5; 

2200 print#4,chr$( 16) "46"; 

2210 print#4,using "ARHHR.HR-" ;eSs; 

2220 print#4,chr$( 16) "69"; 

2230 printf4,using "HAHHB.SH-" ;e 

return 

2240 print#4,chr$( 16) "30zzgl. versa 

ndkosten”; 

2250 print#4,chr$( 16) "69"; 

2260 print#4,using "HRRHRHH-" uk 

2270 print#4,chr$( 10)" 

2280 print#4,chr$( 16) "30rechnungsbe 

trag incl 14% mwst"; 

2290 print#4,chr$( 16) "69"; 

2300 print#4,using "HRHRRHRBHH-" 26 

2310 print#4,chr$( 16) "30”g6$ 

2320 printf#4,chr$( 15)" _ 

2330 print#4,chr$( 10)" 

print#4,chr$( 16) "10zahlungsbed 

ingung "ız$ 

2350 print#4,chr$t 10)" 

2360 print#4,chr$( 16) "20 *=* mwst.- 

satz 14% = dm"; 

2370 print#4,chr$( 16) "50"; 

2380 printf#4,using "HRAHHR.HH-";xB 

2390 print#4,chr$( 10)" 

2400 print#4,chr$( 16) "OSwir danken 

fuer ihren auftrag "; 

2410 print#4,chr$( 16) "32und freuen 

uns auf ihren naechsten !" 

2420 printf#4,chr$( 16)” 

2430 printf#4,chr$( 16)" 

2440 printf#4,chr$( 16)" 

2450 print#4,chr$( 16)” 

print#4,chr$( 16)” 

print#4,chr$( 10)” 

print#4,chr$( 16) "OOvolksbank 
”. 


.......n....„...:.... 


EEE - 
print#4,chr$( 16) "SSpostgiroamt 


. nm. ne 


, print#4,chr$( 16) "00blz 


ee ep m 22 
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2520 printfa,chr$( 16) "29b1: esse 
2530’ print#4, chr$( 16) "S5b1z a 
2520 print#4,chr$( 16) "OOkKto: .....» 
2550 printf4,chr$( 16) "27kto: aneleng: = 


- 
2560 printf#4,chr$( 16) "SSkto: 
-..." z elose 4,4 : print"S* 
2570 if wahl$ = "1" then input"copi 
e der auftragsbestaetigung ";c$ 
2580 if wahl$ = "2" then input"copi 
e der rechnung ( j/n)";c$ 

2590 if c$="j"then 1330 ( :else2600 
) 6 
2600 if wahl$ = "2" then input "weit 
ere rechnungen ( j/n)”;i$ 

2610 if i$ = "j" goto 540 (:else 
2630) ’ f 


2620 if wahl$ = "1" then input "weit 


ere auftragsbestaetigungen ";i$ 
2630 close 4,4 : return 

2640 if i$="n"then return 

2650 print"”S":rem menueauswahl #### 
2660 for t = 1 to AQ : print "*#";:n 
ext 

2670 print"*®..... mnenue - au 
swahl...... *> 

2680 printga$ 

2690 printz4$q7$q3$q7$s1$z4$ 

2700 printga$ 

2710 printga$ 

2720 print"*. .auftragsbestaetigunge 
Misc En ae 

2730 printga$ 

2740 print"® rechnung/lieferschein 
re N 

2750 printga$ 

2760 print"*,..mahnbrief 
ee ae: re u 

2770 printga$ 

2780 print"*..adressaufkleber...... 
ee nee ee 

2790 printga$ 

2800 print"*..ende des programms... 
REEL ENDETE. 

2810 for t = 1 to 40 : print"*";: n 


2820 print:print:print:print:input" 
.„..bitte waehlen sie............ "rw 
ahi$ 

2830 let a =0 : let ma =0: leta 
d=0 

2840 if wahl$ = "1" then gosub 530: 
goto2650 


2850 if wahl$ = "2" then gosub 530: 


gotor&65sn / | 
2860 if wahl$ = "3" then a= a +1 

: gosub 530 : goto 2650 

2870 if wahl$ = "4" then print"S" : 

goto 3300 

2880 if wahl$ = "5" then print"S":g 
oto 3420 
2890 printel$:for t = 1 to 40 : pri | 
nt"#"; :next:print | 
2900 print”#........ mahnbrief....»» | 
2910 for t = 1 to 40 : print"”*";:ne 
xt:print:print:print”bitte eingeben 


2920 input "mahnstufe.......... rim 
ahns$ ; 

2930 input "rechnungs-nr.:......»";P 
$ 


2940 input"erstdatum ’rechnung’ ";a 
r$ 
2950 input"mahnbetrag (dm) = 


$ 


2960 printci$:print:print:print:pri 
nt"es erfolgt der ausdruck des mahn 
briefes." 

2970 printg5$ 

2980 open 4,4 : let ma = 0 

2990 ma = ma + 1 : goto1380 

3000 : 

3010 remttHHHHHHRRRHRRRRRI 

3020 remtext fuer mahnbrief 

3030 remttrr#rr RR 

3040 print#4,chr$( 16) "Oibuchhaltung 
‚„ konto-nr.: ";r$ 
3050 print#4,chr$( 16) "Oimahnstufe = 

":mahns$ 

3060 print#4:printf#4:printf4,chr$f( 1 

6)"Olisehr geehrter herr ";n$;",":pr 
int#4 

3070 print#4,chr$( 16) "Olleider muss 
ten wir feststellen, dass der unten 
genannte betrag"” 

3080 print#4,chr$( 16) "Oinoch nicht 
bei uns eingetroffen ist. sicher ha 
ben sie vergessen” 

3090 print#4,chr$( 16) "Oidie ueberwe 
isung vorzunehmen.":print#4:print#4 
3100 printf#4,chr$( 16) "Oifuer eine b 
aldige erledigung danken wir ihnen 
schon im voraus.” 

3110 print#4:print#4:print#4 

3120 printf#4,chr$( 16) "Oimit freundi 
ichen gruessen" 

3130 printf#4,chr$( 16) "01...... 
...":print#4:print#4:print#4 
3140 print#4,chr$( 16) "01....... ee 
:print#4:print#4:print#4:print#4 

3150 print#4,chr$( 14) :print#4,chr$( 39 
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16)"O0laufstellung”" 

3160 print#4,chr$( 16) "01”q1$:print# 

4 

3170 print#4,chr$t{ 15) ;chr$( 16) "Dire 

chnung vom ";ar$;chr$( 16) "30rechnun 
.8gs-nr: ";r$; ’ = 

3180 print#4,chr$( 16) "57betrag in d 

m "s ; 

3190 print#4 ,using "RHAHH.HH-";b$ 

3200 for t = 1 to 76 : print#4,chr$ 

( 16) "013-"; :next 

3210 print#4:print#4:print#4:print# 

4,chr$( 16) "O1Ianlage” :printf#4,chr$f( 1 

6) "01------ en” 

3220 print#4:print#4,chr$( 16) "Oirec 

hnungskopie” 

3230 print#4:print#4:print#4 

3240 print#4,chr$( 16) "O1falls der a 

usgleich inzwischen erfolgt ist, be 

trachten sie”; 

3250 print#4,chr$( 16) "60dieses schr 

eiben” 

3260 printf#4,chr$( 16) "D1als erledig 

t !":close 4,4 

3270 printcl$:input"copie des ausdr 

ucks (j/n) ";ausdru$ 

3280 if ausdru$ = "3j"” goto 2980 : g 

oto 3270 

3290 if ausdru$ = "n” goto 2650 

3300 for t = 1 to 40 : print”*";:ne 

xt 

3310 rem MHRRRRRRSRRRRRRRRRRRIN 


3320 .print"”#...... adressaufkleber.. 


3330 rem KH s0HeHeserteneneene 
3340 for t = 1 to 40 : 
xt 

3350 open4,4 : let ad=O 
3360 print:print:print:print:print” 


print”*=";:ne 


ihre eingabe bitte !":for t = 1 to 
20:print"”-"”;:next 

3370 for 3 = 1 to 500 : next j 
3380 print:print:print:ad = ad + 1 
: goto 540 


3390 printcl1$ : ad = DO s input”weit 

ere aufkleber (j/n) ";aufki1$ 

3400 if aufkl1$ = "j"” then ad = 
1:goto 540 

3410 if aufkl$ = "n"” then close 4,4 
: goto 2650 


ad + 


3420 for t = 1 to 40 : print"”#"; :ne 
xt 

3430 print"”#...... ende des programm 
EEE ENT Sub 

3440 for t = 1 to 40 : print"*";:ne 
xt 


3450 print:print:print:print"tagesd 
atum = ";t$ 
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3460 print:print:print:print"pgm.-l 


aenge = ";60671 - 


fre(x); "in byte” 


3470 print:printchr$( 158) :printchr$ 
(18)"”...copy by. a. huebner. ‚08/198 


5":printchr$( 159) 
3480 rem 
3490 for t = 1 to 
xst:print:print 

3500 end 
3510 rem 
3520 rem 
3530 rem 
3540 rem 
3550 rem 
3560 rem 
3570 rem 
3580 rem 


kaufmann 
000000 
000000 
000000 
000000 
000000 
000000 


bytes 


printchr$( 146) 


40 : print"*";:ne 


memory 
programm 
variables 
arrays 
strings 
fre (0) 


[a u u u Bu En = 
[ 


11100 rem 060671 bytes memory 


11200 rem 010369 bytes programm 


11600 rem 050267 bytes fre {D) 


KÖNIG ARTHUS 


Wir warnen dringend vor 
dem Abtippen dieses Pro- 
grammes! Sollten Sie 
trotzdem den dringlichen 
Wunsch verspüren, einmal 
König zu werden, behaup- 
ten Sie nicht, wir hätten 
Sie nicht gewarnt. Denn 
auch bei uns wurde von 
diesem Superspiel für 
Tage die Redaktion lahm- 
gelegt und nur unter 
Mordandrohungen des 
Verlegers waren wir wie- 
der zur Arbeit zu bewe- 
gen. 

In diesem Spiel kämpfen 
Sie sich durch viele 
Screens hindurch, die von 
schönen Farbgrafiken un- 
termalt sind. . 

Die Aufgabe selbst ist 
schnell erklärt: Durch ge- 
schicktes Regieren müs- 
sen Sie vor Ihren Mit- 
spielern (bis zu acht sind 
möglich) König werden, 
Doch dies gestaltet sich 
als schwere Übung, denn 
unzählige Faktoren müs- 
sen berücksichtigt wer- 
den, um dem Ziel näher- 
zukommen. Steuern 
müssen festgesetzt, Ge- 
treiderationen verteilt, 


Armeen ausgerüstet und 
Märkte errichtet werden. 
Neben diesen Regierungs- 
pflichten müssen Sie 
außerdem auch noch einen 
regen Handel mit Getreide 
und Ländereien betreiben, 
um auch finanziell dem 
Anspruch eines Königs ge- 
recht zu werden. Doch 
übernehmen dürfen Sie 
sich hierbei auch nicht, 
denn sehr leicht überfallen 
Sie Ihre grimmigen Mit- 
spieler (oder der Com- 
puter!) und alle Bemü- 
hungen waren umsonst. 
Auch sollten Sie sich nicht 
zu viel Zeit lassen, denn 
zur damaligen Zeit währte 
das Leben eines Monar- 
chen nicht lange, unbe- 
kannte Krankheiten in 
Form von etwas zwielich- 
tigen Damen und derglei- 
chen verursachen leicht 
den Ehrentod eines 
Thronanwärters! 
Doch mehr sei nicht ver- 
raten, denn der Sinn die- 
ses Strategiespieles ist es 
ja, seine eigene persönli- 


. ‚che Taktik zum Erreichen 


des Zieles aufzustellen. 
Wir wünschen viel Erfolg! 


10 rem 
20 rem 
30 rem ER 
40 rem = 
Su rem === en zemusezeremureouen 


koenig arthus FSesaseend 
(ec) eommodore welt team = 
seibt = 


50 rem version 3.5 40z/ascii = 
70 rem mit cass. oder floppy = 


80 rem plus/4 oder c 16+64kb = 
90 rem zeunnersetraenemomeoren Sen 


100 wh$=chr$(5) :cv$=- =chr$( 8) | 
110 


ce$=chr$( 9) :rt$=chr$( 13) 
120 so$=chr$( 14) :cd$=chr$( 17) 
130 rn$=chr$( 18) :ho$=chr$t( 19) 
140 de$=chr$( 20) :2e$=chr$f( 27) 
150 re$=chr${ 28) ::h$=chr$( 29) 
160 gr$=chr$( 30) :b1$=chr$( 31) 
170 sp$=chr$( 32) :0e$=chr$( 129) _ 
180 FO$=chr$( 130) :F1$=chr$f( 131) 
190 f1$=chr$t{ 133) :F3$=chr$l 134) 
200 fS5$=chr$t 135) :#7$=chr$( 136) 
210 F2$=chr${( 137) :F4$=chr$( 138) 
220 f6$=chr$( 139) :hp$=chr$( 140) 
230 sr$=chr$( 141) :gb$=chr$( 142) 
2A0 bk$=chr$(144) :cu$ß=chr$f 145) 
250 rf$=chr$( 146) :«:l1$=chr$( 147) 
260 in$=chr${ 148) :br$=chr$( 149) 
270 hr$=chr$t{ 150) :gu$=chr$( 151) 
280 g2$=chr$( 152) :hg$=chr$( 153) 
290 hb$=chr$t 154) :gd$=chr$( 155) 
300 pu$=chr$( 156) :ct$=chr$t( 157) 
310 ye$=chr$( 158) :cy$=chr$( 159) 
320 sg$=chr$( 160) :sr$=chr$( 224) 
330 z21$=chr$( 96) : 22$=chr$( 98) 
340 23$=chr$( 123) :z4$=chr$( 171) 
350 z5$=chr${ 173) :z6$=-chr$( 174) 
360 z?7$=chr$( 176) :z8$=chr$t 177) 
370 y1$=chr${ 178) :y2$=chr$( 179) 
380 y3$=chr$( 189) 
390 forgq=1t037:q93$=-q3$+z21$:nextgq 
400 forg=1t06:96$=q46$+z1$:nextgq 
410 forg=1to?:q7$=q97$+21$:nextg 
420 fForg=1t08:q48$=g98$+z21$:nextgq 
4A30 fory=1t09:99$=g99$+z1$:nextq 
440 vi1$=chr$( 58) :v2$=chr$( 105) 
450 v3$=chr${ 117) :v4$=chr$( 127) 
a60 v5$=chr$( 161) :v6$=chr$( 162) 
470 v7$=chr$( 168) :v8$=chr$( 169) 
ABO v9$=chr$( 188) 
490: wi$=-chr$( 190) :w?$=chr$( 191) 


500 goto620 

510 forzz=1t04A0: printbl$chr$( 163}; 
nextzz:return 

520 DEIHE” TOKSCHET. . 202 2.8 drueck 
en sie eine täaste.,.."” 


530 geta$:ifo$=-""then530 

540 return 

550 printcl1$cv$gb$ 

560 Form=1t040:printbl$chr$( 175) ; :n 


-650 print: 


extm 
570 For j- 18040: printye$chr$( 164) ; :n 
extj 


SA0 printye$rn$"# commodore welt pr 
nesentiert...: BE #"rf$ 


8 arte: er ER #"rf$ 

600 print: forn=1t040: :printbl$chr$( 1 

83) ;, :nextn 

HIQO return 
-0 y(U)-1200 

630 databauer,arbeiter,herr,baron,g 

raf,herzog,prinz,koenig 

640 dataholstein, sachsen, boehmen, sc 

hwaben,bayern, schlesien arslat ‚nosm 

ern 

650 restore:color O,1:color 4,1:gos 

ubSS50O 

660 Fora-itoß:reada$:next 

670 printed$wh$"wieviel spielen mit 
? <1-8>"” 

input f 

690 iff<iorf>8then650 “ 

7200 print: fora=1tof:readt$( a) 

710 printbl$"”wer soll in ";t$(a);" 

regieren "” 

720 printsingucnssprint 

730 iflen(n$) >10then?10 

740 n$la)=n$+" von "+t$(a) 

750 gla)=10 

760 h(a)=10 

770 ila)=10 

780 jla)=2 

790 o(a)=1220+int( rnd( 1) *30) 

800 kla)=1500 

810 I(a)=12000 

9320 r( a) -4000 

830 tla)=ı 

BAU ula)=i 

8560 nla)=S 

860 p(a)=25 

870 qla)=5 

880 m( a) =20 

890 s( a)=1800 

900 next 

910 fora=1itof 

920 restore 

930 b=tfa) 

940 forc=itob 

950 readt$(a) 

960 next 

970 next 

GBU gosub5SSO 

930 printcd$ye$"kennen sie die rege 

In bereits ( j/n)"” 

1000 print:inputa$ 

1010 ifieft$(a$, 1)="n"thengosub5720 

1020 coior O,1:color 4,1 
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1030 gosub550:printspe(45)b1$"1. "u 
h$"blutiger anfaenger"cd$ 

1040 printtab(5)b1$"2. "ye$"gespons 
erter amateur”cd$ 

1050 printtab(5)b1$"”3. "nu$"bezahlt 
er profi"cd$ 

1060 printtab(5)b1$"Aa. "sr$"meister 
aller klassen" 

1070 printcd$ye$"ein wie 
ler sind sie <1-4>" 

1080 print:inputu 

1090 u(0O)=int( u) 

1100 ifu<1thenu( 0) =1 
1110 ifu>4thenuf 0) =4 
1120 u(0)=u(0)+5 

1130 e=e+1 

1140 ift(e)=-ithene=e+1 
1150 iftl 1) <1andt( 2) <Iandt( 3) <1andt 
(4) <1andt( 5) <1andt( 6) <1andt( 7) <Iand 
t(8) <ithen10 


guter spie 


1160 ife>fthene=0:y(0)=y(0)+1:goto1 
130 

1170 ify(0O)>o(e)then1130 

1180 ify(O)=o(e)then1360 

1190 gosub 1630 

1200 gosub2360 

1210 gosub3140 

1220 gosub2770 

1230 gosub3800 

1240 gosub4660 

1250 gosub5040 

1260 goto1130 

1270 color 0,6,3:color 4,6,3 

1280 printcl$bk$rn$” land hoef- le. 
ib- kirche haend- sol- 7. 

1290 print” qm/2 linge eigene kler 
us ler daten "cd$ 


1300 fora=1tof:printgz$t$(a)” "n$la 
) 

1310 1$=str$(1(a)) 

1320 1$=wh$+right${[ 1$,1en( 1$) -1) 
1330 printl1$tab(6)n(a)tabf 12)s(a)ta 
b{ 19) ql a) tab( 26) m( a) tab( 33) p( a) 
1340 next 

1350 print:gosub520: return 

1360 color 0,3,3:color 4,3,3 

1370 printcl$rn$bk$v3$; :Forp=1t038: 
printz1$; :nextp:printv2$; 

1380 printz2$"” eine schreckliche na 
chricht traf ein "z2$; 

1390 printchr$( 106) ; :forp=1t038:pri 
ntz1$; :nextp:printchr$( 107) 

1400 printcd$ye$t$(e)” "n$le) 

1410 print"ist gerade "” 

1420 tle)=-1:y=int( rnd( 8) #8) +1 

1430 ify{(0)>1250thenprint"nach lang 


er regierung gestorben worden." :got : 


01490 
88 


1440 ify<4thenprint"im schweren sch 
neesturm verschollen.” 

1450 ify=-Sthenprint"an cholera (vib 
rio cholerae) gestorben." er 

1460 ify=4thenprint"beim sturz vom 
pferd leider toedlich....verungluec 
kt.” 5 
1470 ify=6thenprint"von attentaeter 
n ermordet worden." 

1480 ify>6thenprint"an unbekannter 
krankheit (maetresse)....verstorben 


1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 


print :eg=1 

gosub520 

gosub3800 

gosub 1270 

eg=-0 

goto?130 

il=int(i1):return 

cei=int(c1) :return 

si=int(s1) :return 

1580 kle)=int(kle)):return 

1590 z=(int( rnd( a) *a) +1)*s(e) /100:z 
2=z:printbl$int( z2) "neugeborene lei 
beigene.* 

1600 print:s(e)=s(e)+z2:return 

1610 z=(int( rnd( a) *a) +1) *s(e) /100:z 
2=z:printre$int( z2) "leibeigene gest 
orben."” 

1620 print:s(e)=s(e)-z2:return 

1630 w=(int( rnd(5) #5) +2+int( rnd( 6) * 
6))/2 ee 

1640 onwgoto1650, 1660, 1670, 1680, 169 
8) 


1650 w$="duerre"” :g0t01700 

1660 w$="schlechtes wetter" :g0t0170 
0 

1670 w$="durchschnittliches wetter” 
:goto1700 

1680 w$="gutes wetter" :goto1700 
1690 w$="phantastisches wetter”:got 
01700 
1700 
1710 
1720 
1730 
1740 
1750 


r=int(rnd( 50) #50) +1 

r(e)=(r(e) #100-r(e)*r) /100 
x=l(e) :y=(sle)-d(e)*100)*5 
ify<Otheny=0:got0o1750 
ify<xthenx=y 
y-r(e)#*#2:ify<xthenx=y 

1760 y=-w-.5:hi=x#y:r(e)=r(e)+h1 
1770 di=n(e) #100+c( e) #40+m( e) #30+p( 
e)#10+s(e)*5 

1780 1=( 3#w+int( rnd( 6) #6) +2+int( rnd 
(6) *6) +10) /10 

1790 ifhil<itheny=2:g0t01810 

1800 y=d1/h1i:ify>2theny=2 

1810 ify<.Btheny=.8 

1820 1=1®#y:1=int( 1#10) :1=-1/10 

1830. z=6-w 


I oz re 
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1840 g=-( z*5+int( rnd(5) #5) +int( rnd(5 
)#5))/S5*y*#20 

1850 return 

1860 print 

1870 printbr$"von ihrem lagerweizen 
wurde von ratten" 

1880 printr” prozent gefressen” 
1890 printb1$w$ 

1900 printbk$”"* jahresernte weizen: 
"int(h1)"scheffel #" 

1910 print:ifkle) <32766thengosub 158 

12] 

1920 r$=str$(int(r(le))):r$=right$(r 

$,len{r$)-1) :ifr(e)<Othenr$=" 0” 
1930 d$=str$(lint( d1)) :d$=right$(d$, 
len( d$) -1) 

1940 g$=str$lint(lg)):g$=" "+g$:1$=s 
tr$(1):1$=" "”+1$ 

1950 k$=str$lint(kle))) 

1960 printbk$27$q7$y1$q6$y1$q7$y1$q 
8$y1$q6$26$; 

1970 ea ee 


$”weizen "z2$"land. . "Z2E"HHEHEE" zZ 
2$; 
1980 printz2$"roserve" 228”bedarf"z2 
$"preis.."z2$"preis..."z2$"”...... 4 
2$; 


1990 printbk$2z4$q97$23$46$23$q47$z23$q 
8$z23$q6$y2$; 

2000 printz2$r$tab( 8) z2$d$tab( 15) z2 
$e$tabl 23) z2$1$tabl 32) z2$K$tabl 39) z 
2$; 

2010 printbk$24$47$z28$46$23$q47$z3$q 
8$23$q6$y2$; 

2020 printz2$"”scheffel.....- "z2$"10 
00 s1"z2$"morgen. ."z2$"gold..”z2$; 
2030 printbk$z25$q7$z1$46$28$q47$zB$gq 
8$z8$q6$y3$; 

2040 return 

2050 j=( j(e) #*300-500) *t( e) 

2060 onjfe) goto2070,2090,2110,2130 
2070 j$="gnaedig" 

2080 goto2140 

2090 j$="fair" 

2100 goto2140 

2110 j$="ungerecht"” 

2120 goto2140 

2130 j$="bestechl.” 

2140 y=150-g(le)-h(e)-i(e) 

2150 ify<itheny=1 

2160 ci= =(n(le)*180+q(e) *75+m( e) #20) * 
( y/100) +u(e) *100 

2170 si=(n[le)*50+m(e) *25+u( ee) #19) *([ 
y/ 100) #(5-3(e))/2 

2180 i1=n( e) #250+u( e) #20+( 10*j( e) *n 
(e))*(y/100) 

2190 ci=c1*g[e)/100 

2200 ifc1<32760thengosub 1560 


"z2$"weizen"”z2- 


2210 
2220 
2230 
2240 


si=s1#h(le)/100 
ifs1<32760thengosub 1570 
ijl=-i1#i(e)/100 
ifi1<32760thengosub 1550 

2250 printbk$z27$q3$26$ 

2260 printz2$"steuer einkuenfte” j+c 
1+s51+i11"goldstuecke."tab( 38) z2$ 
2270 printbk$z4$q9$y1$q7$y1Hq9$y1$q 
9$y2$ 

2280 printz2$"zoll..... "22$"verkauf 
"z2$"einkommen"z2$"gerichts-"”z2$ 
2290 printz2$"abgaben. ."z2$"steuer 
"22$"”"steuer..."z2$"”wesen...."”z2$ 
2300 printbk$z24$499$23$47$23$q49$z3$q 


9$y2$ 


2310 printz2$"”.. 
2$” "hle)ct$”%"; 
2320 printtab( 18) z22$". 
ab( 28) z2$j$tab( 38) z2$ 
2330 printz2$".."citab( 10) 22$" "sit 
ab( 18) z2$" "iitab( 28) z2$”..” jtab( 38 
)z2$ 

2340 printbk$z5$49$28$q47$z8$q9$z8$q 
9$y43$ 
2350 
2360 


"sle)ct$"%"tabl( 10) z 


."ile)ct$"%"t 


return 
color 0,8,7?:color 4,8,7 


2370 printcl1$bk$t$[e)" "n$(e) 

2380 gosub510 

2390 gosub 1860 

2400 printcd$"(1) kaufe weizen....( 


3) kaufe land” 

2410 print"”(2) verkaufe weizen (4) 

verkaufe land” 

2420 printcd$b1$"(0) weiterspielen. 
..(0-4) bitte waehlen"cd$ 

2430 inputi 

2440 ifi>4then2360 

2450 ifi<ithenreturn 

2460 onigoto2470,2570,2640,2700 

2470 printbk$"wieviel weizen wollen 
sie kaufen”cd$ 

2480 inputi 

2490 ifi<1then2520 

2500 kle)=kle)-(i*g/ 1000) 

2510 r(e)=r(e)+i 

2520 printcl$bk$t$(e)” "n$(e) 

2530 gosub5S10 

2540 printtab( 80) 

2550 print:gosub1910 

2560 goto2400 

2570 printbk$"wieviel weizen wollen 
sie verkaufen” 

2580 inputi 

2590 ifi<1then2520 

2600 ifi>r(e)thenprintre$"angeber, 
sie haben ja gar nicht so viel!":go 
to2570 

2610 kle)=kle)+(i*g/1000) 
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2620 r(e)=r(e)-i 

2630 goto2520 

2640 printpu$”"wieviele morgen wolle 

n sie kaufen"cd$ 

2650 inputi 

2660 ifi<Othen2520 

2670 1(e)=1le)+i 

2680 kle)=kle)-(i*1) 

2690 goto2520 

2700 printpu$"”wieviele morgen wolle 

n sie verkaufen" 

2710 inputi 

2720 ifi<Othen2520 

2730 ifi>[ l1(e)-S5000) thenprintre$"”na 

rr ! sie haben ja gar nicht so viel 
!":g0t02700 

2740 1(e)=l(e)-i 

2750 kle)=kle)+(i*1) 

2760 goto2520 

2770 printcl$:color 0,7,3:color 4,7 
Ss 

2780 


printye$t$({fe)” "n$(e) 
2790 


gosub51D0 

2800 print:gosub2050 

2810 printcd$"(1) zollabgaben..... ( 
3) einkommensteuer” 

2820 print"”(2) verkaufsteuer.. 
gericht" 

2830 print”(0) = 
u 0-4) 
2840 
2850 
2860 


.(4) 


weiter. ..».-.% "uh$ 
= waehlen sie"”cd$ 
inputi:print 

ifi>4then2830 

ifi<1then3100 

2870 onigoto2880,2930,2970,3010 
2880 printwh$”"neue zollabgaben 
(0-100) "cd$ j 

2890 inputi 

2900 ifi>100theni=100 

2910 ifi<Otheni=0 

2920 g(e)=-i:g0t02770 

2930 printwh$”"neue verkaufsteuer (DO 
-50) "cd$ 

2940 inputi 

2950 if(i>50)or( i<O)theni=5 

2960 h(e)=-i:goto2770 . 

2970 printwh$"neue einkommensteuer 
( 0-25) "cd$ 

2980 inputi 

2990 if(li<O)or(i>25)theni=O0 

3000 ile)=-i:goto2770 

3010 printwh$c1$:forg=1t040:printch 
r$( 175) ; :nextgq 

3020 printrn$spe( 16) "gericht" 

3030 
forgq=1t040:printchr$({ 183) ; :nextgq 
3040 printcd$"( 1) gnaedig......... ( 
3) ungerecht” | 

3050 printcd$"”(2) fair 


90 


. 3380 


4) bestechlich” 

3060 printcd$bk$"”welche stufe”"cd$ 
3070 inputi 

3080 if[(i>4A)or(i<s1)theni=1 

3090 jle)=i:goto2770 

3100 kle)=kle) +c1+s1+i11+3 

3110 ifkle)<Othenk(e)=kle)*#1.5 

3120 ifkl[le)<(-10000*t(e))then5390 
3130 return 

3140 printcl$bk$t$(e)” "n$le) 

3150 gosubS10 

3160 printtab( 120) :gosub 1910 

3170 printcd$bl$"wieviel weizen geb 
en sie ihren leuten" 

3180 print"zum taeglichen verbrauch 
"2d$ 

3190 inputg 

3200 ifg<{r[(e)/4A)thenprintre$"”geizk 
nochen! mindestens 25% freigeben!": 
goto3170 

3210 ifg>(rle)*.75)thenprintre$"vol 
lidiot! mindestens 25% aufbewahren! 
":g0t03170 

3220 r(e)=r(e)-g 


3230 printcl$bk$t$(le)" "n$le) 
3240 forzz=1t040:printchr$( 163) ;:ne . 
xtzz 

3250 color 0,2,0:color 4,2,0 
3260 z=g/d1-1 

3270 ifz>üOthenz=z/2 

3280 ifz>.25thenz=z/10+.25 
3290 z2=50-g(e)-h(e)-i(e) 
3300 ifz2<Othenz2=z2#j[(e) 
3310 z2=z2/10 

3320 ifz2>Othenz2=z2+3-j(e) 
3330 z=z+( z2/10) 

3340 ifz>.Sthenz=.5 

3350 ifg<(d1-1)then3610 


3360 -a=7:gosub 1590 

3370 a=3:gosub1610 
iflgle)+h(le))<3Sthenm( e) =n(e) + 
int(rnd( 2)*2) :qle)=q(e) +int( rnd( 3) # 
3) 

3390 ifile) <int(rnd( 20) #20) +1thenn( 
e)=n(e) +int( rnd( 2) #2). :q(e)=q(e)+int 
( rnd( 3) #3) 

3400 ifg<( di+d1*.3)then3540 

3410 z2=s(e)/1000 

3420 z=(g-d1)/d1*10 

3430 z=z#z2%#int( rnd( 25) #25+1) +int(r 
nd{ 40) #40+1) 

3440 ifz>32000thenz=32000 

3450 z2=z:z=int(rnd( 4) #z2) +1 

3460 printcd$bk$z"leibeigene sind e 
ingewändert”cd$ 

3470 sle)=s(e)+z 

3480 z?2=z/5 

3490 z=int(rnd(5)*z2) +1 
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3500 ifz>50thenz=50 

3510 m(e)=m(e)+z 

3520 n(e)=n(e) +1 

3530 q(e)=ql(e) +2 

3540 ifjle) <3then3600 

3550 j1=s(e) /100%( Jle)-2)*( jle)-2) 
3560 J1=int(lrnd( 8) #371) +1 

3570 sl(e)=s(le)-ji 

3580 printcd$cy$j1"leibeigene sind 

wegen ungerechter" 

3590 ‚print"herrschaft ausgewandert, 
alter miesling" 

3600 goto3670 

3610 x=( d1-g) /d1*100-9 

3620 ifx>65thenx=65 

3630 ifx<Othenx2=0:x=0 

3640 a=3:gosub 1590 

3650 a=x2+8:g0sub1610 

3660 goto3540 

3670 z=al[le) *75 

3680 kle)=kle)+z 


3690 ifz>Othenprintcd$b1$"” markt br 


achte"”z"golddstuecke ein."cd$ 

3700 ifs(e) <32766thens1=s(e) :gosub! 
570:sle)=s1 

3710 z=d(e) #(55+int( rnd( 250) #250+1) 
) 


3720 ifz>Othenk(e)=k(e)+z:printpug” 
muehle brachte”z"goldstuecke ein.” 
cd$ 

3730 z=ple)*#3:printgr$" armee koste 
t"z"goldstuecke."cd$:kle)=kle)-z 
3740 if(1(e) /1000) >p(e)thenS500 
3750 if( 1(e) /500) <p(e) then3790 

3760 fora=1tof:ifa=ethen3780 

3770 ifpla)>[ple)*2.4) then5S500 

3780 next 

3790 print :gosub520:return 

3800 color 0,6,0:color 4,5,0 

3810 printcl$bk$ 

3820 12=(1(e)/1000) 

3830 if1l2<10thenx=30:y=20:g0t03900 
3840 if12<30thenx=25:y=17:g0t03900 
3850 if12<50thenx=20:y=14:g0t03900 
3860 if12<70thenx=15:y=11:g0ot0o3900 
3870 if12<90thenx=10:y=08:g0t03900 
3880 if12<110thenx=5:y=-5:goto3900 
3890 x=1:y=-2:g0t03900 

3900 a$=bk$:fora=itoy:a$=a$+cd$:nex 


3910 fora=1itox:a$=a$+ch$:nexta 
3920: fora=xto39:a$=ä$+chr$( 118) :nex 


3930 printho$a$ 
3940 a$=bk$:fora=iItoy-1:a$=a$+cd$:n 


3950 fora=1tox:a$=a$+ch$:next 
3960 b$=a$+ct$:c$=a$:d$=-a$:e$=a$: fg 


=a$:g$=-a$ 

3970 fora=y-1t023:3$=-a$+cd$+ct$+chr 
$( 118) :next 

3980 printho$a$; 

3990 c1$=br$+cu$+w2$+w2$+w1$+cd$+ct 
$+ct$+ct$+rn$+vS$ 

4000 c2$=sp$+ced$+et$+ct$+v5$+sp$+rf 
$ 

A010 c1$=c1$+c2$ 

4020 c3$=br$+cu$+w2$+w2$+w1$+V9$+rn 
$+w2$ R 

4030 c4$=w2$+cd$+ct$+ct$+ct$+ot$+ct 
$tet$+Vv5$+sp$+rf$ 

4040 c5$=v7$+v7$+rn$+sp$+rf$+v5$+cd 


$tet$+cet$+oet$+et$+ct$+ct$ 


4050 c6$=rn$+w1$+p$+sp$+sp$+sp$+sp$ 
+v9$+rf$ 

4060 0c3$=-03$+c4$+c5$+c6$ 

4070 if[lple)-5)<(1le) /1000) then4110 
4080 if(ple)/2)<(1(e) /1000) then4100 
4090 printho$b$c3$ :got0o4110 

4100 printho$b$c1$ 

4110 fora=y-2toy+int((23-y)*.8) 
4120 c$=c$+cd$:next 

4130 fora=x+1tox+int( (39-x)*.1) 
4140 c$=c$+ch$:next:c$=c$+ch$ 

4150 z=c(e) +1:ifz>?7thenz=7 

4160 ifz=-0then4240 

4170 c$[2)=b1$+Vv9$+rn$+V6$+rFf$+w1$+ 
cu$+tct$+ct$+et$+rn$+pu$+vB$+sp$+vV4$ 
4180 c$[L 3) =c$[ 2) +cu$+ct$+ct$+rFf$+wh 
$+23$:c$[ 1)=" 

4190 c$[( 4) =c$( 3) +cd$+cd$+b1$+rn$+v6 
$+V6$+rV6$+V6$+rF$+wi$ 

4200 c$(5)=c$[ 4) +cu$+ct$+ct$+ct$+rn 
$+pu$+vB$+sp$+v4$ 

4210 c$(6)=c$[ 5) +cu$+ct$+cet$+rFf$+rwh 
$+z3$ 

4220 c$L?)=c$( 6) +ct$+ct$+ct$+bk$+rf 
$+z3$+cd$+ct$+rn$+ye$ 

4230 c1$=c$( z) :printho$;c$;c1$; 
4240 fora=y-2toy+int( (23-y)*.8) 
4250 d$=d$+cd$:next 

4260 fora=xtox+int( ( 39-x)*#.5) 

4270 d$=d$+ch$:next 

4280 ifb(e) -0then4350 

4290 ifl(e) <10000thend$=d$+ct$+ct$ 
4300 c$( 1) =ern$+bk$+v1$+V2$+cu$+ct$+ 
cet$+pu$+v8$+v4$ 

4310 c$[2)=c$( 1) +rf$+ye$+v3$+vV2$+cd 
$+ct$+ct$+br$+rn$+z7$+z6$ 

4320 c$[ 3) =c$( 2) +br$+rn$+vi$+v2$+cu 
$+tot$+ct$+pu$+Vv8$+v4$ 

4330 a=b(e) :ifa>3thena=3 

4340 printho$d$c$( a) 

4350 fora=ytoy+int((25-y)*.3) 

4360 e$=e$+cd$:next 


4370 fora=xtox+int( (39-x)*.1) 2» 
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4380 e$=e$+ch$:next 

4390 fg=ale): iffg>40-athenfg-40-a 

4400 ifale) -0then4420 

4410 fora=itofg:e$=e$+rf$+b1$+chr$( 

120) :next 

4420 printho$e$; 

4430 fora=ytoy+int((25-y)#.49) 

4440 F$=f$+cd$:next 

4450 fora=xtox+int( ( 39-x)*#.14) 

4460 fF$=fF$+ch$:next 

4470 fg=d(e) :iffg>40-athenfg=40-a 

4480 iffg=-0then4500 

4490 fora=1tofg:f$=fF$+ye$+rf$+chr$( 

97) :next 

‘4500 printho$f$; 

4510 z=s[(e)-d(e)*100 

4520 g$=g$+cd$ 

4530 ifz<Othenz=.1 

4540 z=z*5/1(e)*10 

4550 ifz>10thenz=10 

4560 z=10-z 

4570 z=int( (24-y) #*( z/10)) +1 

4580 fora=1toz 

4590 g$=-g$+cd$:next 

4600 fora=1tol 38-x) 

A610 g$=g$+tch$:next 

4620 printho$g$bl$rn$chr$( 95) ; 

4630 printho$cd$cd$wh$tab( 14) " jahr: 

”y(0) 

4640 ifeg=-ithenprintho$ye$tabt 165) t 

$le)”"X"”n$le) 

4650 printho$; :gosub520: return 

4660 printcl1$; :color 0,9,0:color 4, 

6,0 

4670 printbk$t$le)” 

4680 gosub510 

4690 printbl$"staatsinvestitionsmoe 

glichkeiten:”cd$ 

4700 printbk$"( 1) markt......... (1) 
1000 goldstuecke" 


"n$le) 


4710 print”(2) muehle........ {1} 2 


000 goldstuecke” 

4720 print”(3) palast..... (teil). 
000 goldstuecke” 

4730 print”(4) kirche.....(teil)..5 
000 goldstuecke” 

4740 print”(5) landsknechte (20)... 
500 goldstuecke"” 

4750 printced$ye$"sie haben"int(kl(e) 
)"goldstuecke."”cd$ 
4760 printwh$"”(0) = 
) = spielstand”cd$ 
4770 input”ihre wahl";i 

4780 ifi<ithenreturn 

4790 ifi>Sthengosub 1270: g0t04660 
4800 onigoto4850,4810,4900,4950, 500 
Dd 

4810 
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fortfahren / (6 


d(e)=d(e) +1 


‚a=int(a) 


)ı goto10 


kle)=k(e) -2000 
ule)=u[le)+.25 
goto4660 
ale)=ale) +1 

m( e)=m( e) +5 
kle)=kle)-1000 
ule)=u(le)+.1 \ 
goto4660 

b(e)=b[(e) +1 
n{(e)=n(e) +int( rnd( 2) #2) +1 
kle)=kle)-3000 
u(le)=u(le)+.5 

goto4660 

c(e)=c(e) +1 
gqle)=q(e) +int( rnd( 6) #6) +1 
kle)=k(e)-5000 
ule)=u(le) +1 

got0o4660 

ple)=p(e) +20 

s[(e)=s(e)-20 
kle)=kle)-500 

goto4660 

printtab( 80) 

z=0D 

a=a[le) :gosub5300 

a=b[e) :gosub5300 

a=c(e) :gosub5300 

a=d{e) :gosub5300 

a=k( e}) /5000: gosub5300 
a=1(e) /6000:gosub5300 
a=m( e) /50:gosub5300 
a=n(e) /5:gosub5300 

a=p(e) /50:gosub5300 
a=q(e) /10:gosub5300 
a=s(e) /2000:gosub5S300 
a=u([e) /5S:gosub5300 
a=z/u(0)-j(e) 


., ia a iA ia ia ia aA ia ia ia ia ia ia ia ia ia a ia a I ia ia 


ifa>8thena=B 
ifly(0)+2)=o(e)thent(e)=t(e) +1 
ift(e)>=athen5290 

t(e)=a 

restore 

forb= 1tolt(le)+v(e)) 

readt$(e) 

next. 

ift(e)=8then5340 

return 

ifa>10thena=10 

a=int(a) 

z=z+ta 

return 

printcl$;:color 0,4,0:color 4, 


a ia ıa ia ia iA a iA Ma im 


a I = 


im iM 


iB iu IM, 


eg=-1 
gosub3800 
gosub 1270 


E 
\ 
- 


Konig Arthus PA 


5390 printcl$cy$; :color 0,3,0:color 
4,3,0 

5400 printt$(e)"” "n$(e)" ist bankro 
tt”cd$ 

5410 printwh$"die glaeubiger haben 
sich das meiste "” 

5420 print"ihres vermoegens angeeig 
net."”cd$ 

5430 print"viele a verlass 

en das land”cd$ 


5440  gosub520 

5450 ale)=0:b[(e)=0:c(e)=0:d(e)=0 
5460 l1(e)=-6000:ule)=1:kle}=-100 

5470 s(e)=-int(s(e)*rnd{( 1)) 

5480 ifr(e)>5000thenr( e) =-5000 

5490 return 

5500 z=0:fora=-1tof 

5510 ifa=ethen5550 

5520 ifp(a)<p(e)then5550 

5530 ifp(a)<(1.2%( 10a) /1000)) thenS5 
50 

5540 ifp(la)>p(z)thenz=a 

5550 next 

5560 ifz<>0then5600 

5570 t$(0)="baron":n$(0)="igor v. f 
ronkenstein" 


5580 a1=1001+int( rnd( 8) #9000) 

5590 goto5610 

5600 ai=p( z) #1000-1( z) /3 

5610 ifa1l>( 1(e) -5000) thenal=( Ile) -S 

000) /2 

5620 printre$:forzz=1t040:printz1i$; 
:nextzz 

5630 printbk$t$( 2)" 

an" 

5640 

nd!” 

5650 1lz)=1(2)+a1:1le)=1le)-ai 

5660 z=-int( rnd( 4) #40) +1:ifz>(ple) -1 

S)thenz=pl(e)-15S 

5670 printt$(e)" "n$(e) 

5680 print"verliert"z”soldaten." 

5690 printbk$: forzz=1t0o40:printzi$; 
:nextzz 

5700 ple)=pl(e)-z 

5710 print:gosub520: return 

5720 color 0,2,?:color 4,2,7 

5730 printc1$b1$" "rn$"......:..--- 
„koenig arthus.......-.....- "od$bk$ 

5740 print”sie sind der herrscher e 

ines verarmten " 

5750 print"geschlechtes aus dem 13. 
jahrhundert sie”; 

5760 print"muessen durch kauf, 

auf von land und”; 

5770 print"weizen, 
teuern, zuwei-"” 
5780 print"”sung von weizen, 


"n$lz)" greift 


print"und besetzt"ai"morgen la 


verk 
festlegung von s 


anschaf 


fung von guetern"; 

5790 print"ihr geschick im regieren 
beweisen. je " 

5800 print"besser sie sind, desto s 

chneller er-"” 

5810 print" reichen sie das ziel in 

der regierungs-"” 

5820 print" hierarchie: "b1$"koenig” 

bk$” zu werden. 

5830 print"”denn sieger ist, 

rst koenig ist." 

5840 print"aber vorsicht, 

leben in jener" 

5850 print"zeit war kurz, und schon 
mancher ist" 

5860 print"vor dem ziel auf der str 

ecke geblieben!"cd$ 

5870 print”der computer zeichnet ei 

ne karte ihres” 

5880 print"landes. 

burg im eck" 

5890 print"zeigt die angemessenheit 
ihrer armee."” 

5900 print"wenn sie schrumpft, 
ruesten sie" 

5910 print"mehr soldaten aus!"cd$ 

5920 print" "bk$rn$"”..... ......weit 

er mit taste........... > 

5930 getb$:ifb$=""then5930 

5940 printcl$b1$" "rn$"”...........- 

koenig arthus............ ."cd$bk$ 

5950 print"wenn die markierung die 

mauer beruehrt,” 

5960 print"wird im ganzen land prod 

uziert, sonst" 

5970 print"benoetigen sie noch mehr 
leibeigene als" 

5980 print"arbeiter auf den bauernh 

oefen."” 

5990 print"hoehere steuern bringen 

mehr geld, aber” 

6000 print"verringern das wirtschaf 
tswachstum."” 

6010 print”"sie koennen schulden mac 
hen, aber seien" 

6020 print"sie vorsichtig, denn die 
zinsen liegen" 

6030 print"bei 50% pro jahr und sie 
koennten daran” 

6040 print”"leicht bankrott gehen!" 
6050 printcd$:gosub520: return 

6060 rem koenig arthus ==========p4 
6070 rem 60671 bytes memory 
6080 rem 16084 bytes program 
6090 rem 00000 bytes variables 
6100 rem 00000 bytes arrays ee 
6110 rem 00000 bytes strings === 
6120 rem 44587 bytes free === 


wer zue 


denn das 


die groesse der 


dann 


SERVICE 


EINSTELLHILFE ROLLER- 
BALL 


Für diejenigen, die schon mit dem Monitor umgehen 
können, folgen jetzt zwei Spiele in Maschinen- 
sprache programmiert. Denn die ist nicht nur beim 
Eintippen, sondern auch beim Ablauf schneller. 

Die Grafikbalken am Rand müssen Sie nicht mit 
eingeben, die erzeugt der Computer allein, wenn 

Sie die Zeile mit Return abschließen! Sie dient der 
Kontrolle, ob Sie richtig abgetippt haben! 


Das Set besteht aus 2 
Cassetten mit Schrauben- 
dreher und Anleitung im 
stabilem Aufbewahrungs- 
kasten. 

Nie mehr Ladeproble- 
me, so wird dieses Ton- 


kopfjustage-Set angeprie- 
sen. Es ermöglicht die 
genaue Einstellung des 
Tonkopfes Ihrer Dataset- 
te. Nach dem Laden und 
Starten des Programmes 
Head Alignment Kit er- 
scheint eine Graphic, die 
aus einer großen, vierstel- 
ligen Digitalanzeige und 
einer Skala mit einem ro- 
tem und grünem Endbe- 
reich besteht, auf der sich 
ein Zeiger in Abhängigkeit 
von der Tonkopfeinstel- 
lung bewegt. Auf der 
zweiten Cassette befindet 


sich ein Prüfton, mit dem 
der Tonkopf der Data- 
sette eingestellt werden 
soll. Die 7seitige bebilder- 
te englische Anleitung 


zeigt ganz genau, wie und 
wo mit dem beiliegenden 


Schraubendreher die Ein- 
stellung vorgenommen 
werden muß. Wenn der 
Tonkopf genau eingestellt 
ist, sollte sich der Zeiger 
im grünen Bereich befin- 
den und die Anzeige 
3000 oder mehr anzeigen. 
Die sehr ausführliche Be- 
dienungsanleitung führt 
Schritt für Schritt durch 
den Einstell- und Prüf- 
vorgang. Es wird sogar 
darauf hingewiesen, wann 
der Schraubendreher aus 


dem Einstelloch gezogen , 


werden muß. 


Vernichten Sie die Mon- 
ster, die sich in einem 
Leiterlabyrinth bewegen, 
indem Sie ihnen Kugeln 
entgegenrollen. Die Ku- 
geln werden mit der Space- 
taste ausgelöst, aber nur 
in die Richtung, in die 

Sie sich vorher bewegt 
haben! Also, wenn Sie 
nach rechts gelaufen sind, 
rollt die Kugel nach 
rechts. Für ein getroffe- 
nes Monster gibt es 100 
Punkte. Sollte es Ihnen ge- 
lingen, den im Labyrinth 
herumfliegenden Vogel 

zu erwischen, verwandelt 
sich dieser in einen Stein, 
der an einem anderen Ort 
auftaucht. Dafür erhalten 
Sie dann 200 Punkte. 

Ihre Bewegungen im Laby- 
rinth werden mit den Cur- 
sortasten in alle Richtun- 
gen gesteuert. Das Spiel 
hat 15 Durchgänge, wo- 
bei nach jedem dritten 
Durchgang das Labyrinth 


WALLBRI 


Dieses Spiel ist dem 
Klassiker “Break Out“ 
nachempfunden und kann 
als eine gelungene Varian- 
te für den C-16 bezeichnet 
werden. Sie müssen ver- 
suchen, mit dem Schläger 
am unterem Bildschirm- 
rand den Ball so zurück- 
zuschlagen, daß Sie alle 
Steine aus den am obe- 
ren Bildrand befindlichen 
Rhomben herausschlagen. 
Der Schläger wird mit 

den Cursor-Tasten bewegt. 
Da das Spiel in Maschinen-- 
sprache geschrieben ist, 


verändert wird und mit 
neuen und gefährlicheren 
Monstern aufwartet. 
Wurden Sie von einem 
Monster, Vogel oder 
Stein erwischt, bzw. wenn 
die Zeit abgelaufen ist, 
haben Sie verloren. 

Da das Spiel ganz in Ma- 
schinensprache geschrie- 
ben ist, geben Sie es bitte 
mit Hilfe des eingebauten 
Monitors ein und saven es 
vor dem Starten auf Kas- 
sette oder Diskette ab. 
SAVE“Rollerbail‘,1, 
1408,2F92 für Kassette 
oder SAVE“ Rollerball“ 
‚8,1408,2F92 für Disket- 
te.) 


Geladen wird das Spiel 
mit LOAD“ Rollerball‘“, 
1,1 bzw. mit LOAD 
“Rollerball“,8,1. Gestar- 
tet wird das Spiel mit 
SYS 4988. Und nun viel 
Erfolg bei der Monster- i 
jagd. 


— 


geben Sie es bitte mit dem 
eingebauten Monitor ein 
und saven es vor dem 
Start auf Kassette oder 
Diskette ab. (SAVE 
“Wall-Break“ 1,1038, 
1AAT für Kassette oder 
mit SAVE“ Wall-Break“, 
8,1038,1AA7 für Disketts$ 
Geladen wird das Spiel 
mit LOAD‘ Wall-Break“. 
1,1 oder alternativ mit 
‚8,1. Gestartet wird das 
Spiel mit SYS 5320, 
nachdem Sie mit X 
>RETURNX< aus dem 
Monitor ausgestiegen sind 


94 


LISTINGS 


; FBOo0 00 00 00 00 FB 


>01408 
>01418 
>01428 
>01438 
>01448 
>01458 
>01468 
>01478 
>01488 
>01498 
>01A4AB 
>014B8 
>014C8 
>014D8 
>O1I4E8 
>D1I4AF8 
>01508 
>01518 
>01528 
>01538 
>01548 
>01558 
>01568 
>01578 
>01588 
>01598 
>015A8 
>015B8 
>015C8 
>015D8 
>015E8 
>015F8 
>01608 
>01618 
>01628 
>01638 
>01648 
>01658 
>01668 
>01678 
>01688 
>01698 
>016AB 
>016B8 
>016C8 
>016D8 
>DO16E8 
>016F8 
>01708 
>01718 
>01728 
>01738 


>01748 


>01758 
>01768 
>01778 
>01788 
>01798 
>017A8 


7E 7E 7E 7E 00 ?E FF FFFFFFFFFFE?7EITEO EA a 
FF FF FF FF.E? E77 07 07 FF FF FF FF E? EI E? se near. 


A2 00 BD 00 DO 9D 00 10 BD 00 DI 9D 00 11 BD 00: en ER EURE 


00 70 40 6B 25 73 40 40 40 40 40 40 40 40 40 40; PR ESACHEIETETICT-RCTENTEN 
40 40 6B 25 73 40 40 40 AO 40 40 40 40 AO 40 AO: IE BERETEIEIeIeTeTeIetelelete] 
a0 AU 6B 25 73 AO 6E 00 00 6D AU EB 25 73 AD 20: ir Ei Eee: 
40 AO AU 40 AO 40 AD AD AO AO 6B 25 73 40 A0 Ad: EeicTeIee ee eiehe 
40 40 40 40 40 40 40 40 40 40 6B 25 73 40 7D 00: en en 


00 70 40 40 40 40 40 40 40 40 40 6B 25 73 20 ‚40 : PAmHCHCIETSTETCHEICEAR NEE) 
40 AU 40 40 40 40 AO 40 40 40 6B 25 73 40 40 40: :isleieie eier ce: 
40 40 6B 25 73 40 6E 00 00 6D 40 AO 40 40 40 20: re: 
40 40 40 6B 25 73 40 40 40 40 40 40 40 40 40 40: ERTEEERTEETSTEIETETeNSIcHeiG] 
40 A0 6B 25 73 40 40 A0 a0 AO 6B 25 73 40 7D 00: ICHS EASTERN 


00 70 40 6B 25 73 40 40 40 40 40 6B 25 73 40 AD: Pam ECHTEN EAN 
2 IE FRA a 


TErsfcheHel 


EEE HC1:] 


LISTINGS ei 


>017B8 
>017C8 
>017D8 
>017EB i : 
>017F8 00 70 40 40 A40 40 40 40 AO 40 40 40 40 40 40 40: ABSEETEIEIEEERITN 
>01808 40 40 40 40 40 40 40 40 40 40 40 A0 40 40 40 40: KleisleleleieieTeiieieTeleiete 
>01818: 40 40 40 40 40 40 6E 00 20 6D 40 40 40 40 40 40: kB HZIEIETIEIE] 
>01828 A0 AO 40 AD AO AD AO AD AO AD A0 AO AD AD AD 40: lekeifleeedeiefegTeTeieN 
>01838 40 40 40 40 AO 40 40 40 40 AD AD 40 40 A40 7D 00: ek fiel Ich 
>01848 A2 00 BD A? 14 9D 48 OD A9 45 90 48 09 EB Eü 14: un ee 
>01858 DO FO A2 00 BD 9B 14 9D EC OD AS AG HD EC OS BE: a 
>01868 EO 0B DO FO A9 00 8D 33 03 8D 34 03 8D A6 03 BD: . Er En ERS STUFEN 
>01878 45 03 AS C6 C9 3C DO FA 20 6B CS A2 00 BD 08 14: ih ka Ba 
>01888 9D 08 11 ES EO 70 DO FS A9 00 8D 35 03 8D 36 03: Fiikrrika me He 
>01898 A9 64 8D 37 03 A9 00 8D 38 03 AY9 32 8D F9 19 A9: iii ii er 
>018A8 14 8D 39 03 AY9 24 85 EO AY 23 85 Ei AY 01 85 E2 iu ir a 
>01888 A9 15 85 D7 A9 00 8D 3A 03 A9 04 85 DB AY 06 55: enisssheengieneharmuiaigg ini 
>018C8 D8 AY9 00 85 E3 A9Y 01 565 EA AO 00 B9 ?F 14 99 01::1.HE SE 

>018D8B 0OC C8 CO 08 DO FS A2 00 BD 78 iA 9D IC OC EB EO: a en RE ERETE 
>01I8E8 07 DO F5S A2 00 BD BC 14 9D 71 OF AY9 49 9D 71 BE iin ee 
>018F8 ES EO 05 DO FO EA A2 00 AY 6C 9D 78 OF A9 SS 90: Fin a a 
>01908 = 

>01918 
>01928 
>01938 
>01948 
>01958 
>01968 
>01978 
>01988 
>01998 
>019A8 205 “ 
>019B8 01 DO FC EB EC 3B 03 DO F3 68 AA 60 AA DE A6 DF: a ET 
>019C8 86 DA 20 AO 19 AS F? 91 DO AY 55 91 D2 CB AS FB: Fi iEbEk In Be a 
>019D8 91 DO AY9 55 91 D2 AS F? C9 2B FO 09 AY 2B 85 F?: : Fön al Bea Zn 
>019E8 
>019F8 
>01A0O8 
>DO1A18 
>DO1A28 
>01A38 
>01AAB 
>01AS8 
>01A68 
>D01A78 
>01AB88 
>01A9B 
>DIAAB DA 20 AO 19 AS E? 9+r DO AY 77 91 D2 CB AS EB 91: EEE a a 
>01AB8ö DO AY9 77 91 D2 86 ES AC D2 1D A& ES EB EA DB a en Er neBe 
>DO1IACB i = 

>01AD8 
>DOIAEB 
>D1IAFB 
>01B08 
>01B18 
>01B28 
>01B38 
>01848 
>01B58 
>01B68 
>01B78 
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LISTINGS 


>01888 
>01B98 
>01BAB 
>01BB8 
>01BC8 
>01B5D8 
>D01BE8 
>01BF8 
>01C08 
>01C18 
>D1C28 
>01C38 
>D01CA48 
>01C58 
>01C68 
>01C78 
>01C88 
>01C98 
>01CAB 
>01CB8 
>DICCB 
>D01ICD8 
>DOICEB 
>DOICF8 
>01D008 
>01D18 
>01D28 
>01D38 
>01D48 
>01D58 
>01D68 
>01D78 
>01D88 
>01D98 
>01DA8 
>01DB8 
>DID0CB 
>01DD8 
>O1IDES 
>01DF8 
>O1IEO8 
>DIE1I8 
>DO1IE28 
>DO1E38 
>D1IEA4B 
>DO1ESS 
>0O1E68 
»01E78 
>O1E88 
>DIEIB 
>DO1IEA8 
>01EB8 
>DO1IECB 
>OIEDS 


>OIEEB 


>DIEFB 
>DOIF08 
>01F18 
>D1IF28 
>0iF38 
>0iF4A8 


a2: a 


27: SEE Er SE SER 
AI: FE rn u 
De a ea ee 
Do: ee a ee ee 
eV ae Pie Bert 
D9: EFEI FEBe e 
A9: EA Fr 
9: ii ei rn 


LISTINGS | 


>DIFS8 FB 
>O1IF68 BC 
>01F78 
>01F88 
>D1F98 
>O1FAB 
>D1IFB8 
>DIFCB 
>01FD8 
>O1FEB EA 
>OIFF8 
>02008 
>02018 
>02028 
>02038 
>02048 
>02058 
>02068 
>02078 
>02088 
>02098 
>020AB 
>020B8 
>020C8 
>020D8 
>020E8 
>020F8 
>02108 
>02118 60 
>02128 05 
>02138 85 
>02148 03 
>02158 A9 


>02168 A9- 


>02178-A9 
>02188 BE 
>02198 DO 
>021AB CB 
»021B8 A9 
>021C8 1B 
>021D8 C9 
>021E8 A9 
>021F8 75 
>02208 AS 
>02218 15 
>02228 20 
>02238 20 
>02248 20 
>02258 20 
>02268 20 
>02278 25 
>02288 20 
>02298 73 
>022AB 40 
>022B8 40 
>022C8 25 
>022D8 40 
>022E8 73 
>022F8 
>02308 
>02318 
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20: TE ET 
DB: Far ET 2 2a 


8D: a PRRUFE TEE wirt 


85 : ma a BEE PERL. a BE 
EB: Ar ers 
85: ea 
50: AR een 
05: rare 
03: ee An ser 
00: ET A re 
BI: A re Te BR 


AI: 


DF : HER PEE 2 Su 
CB: A Et RE 
pic u or = np 0 er el 
19: Er 
BD : HiiEisEre NE REF ER 
AO: EEE BE Tree a ae u 
AI: a 
20: AALEN BP 
20: En 
20: BRRNEIRTEIRHEIEEE 
20: ES 
20: RER 
66: Eng 
20: REED 
25: RR 
0 a ar eIsielelile 
40: ET AEIETeIeTeI 
68: EEE TE 
40: REEReIeleieleleteleheteleigg 
nein. 

en 


EEE EEE BEI TE TH UV SE U ED US U U U U U U U LU U U U LU U U LU LU LU LH MU N U U HU N US U 


LISTINGS 


>»02328 20 20 20 20 20 20 6B 25 73 20 20 20 20 20 6B 25: Baia 

»02338 73 20 20 00 64 23 40.40 40 40 40 40 AO 40 6B 25: Fi ERETETCECTCTCTEEER 
>02348 73 AO AO 40 40 A0 AO 40 40 AO AO AD AD AU 6B 25: ERIC DICEEIEISIEIGEI EB 
>02358 73 40 AO 40 AQ AO 40 40 40 40 6E 00 8C 23 A0 40: (acer 
>02368 40 40 40 A0 40 40 6B 25 73 40 AG 40 40 40 40 AD:l& SRENEKEE EDETSTEKcHeTel 
>02378 AO AD 40 40 40 40 6B 25 73 AU AO 40 40 AU 40 40: ERERAEDAESRCSTEISTEIETATEN 
>02388 40 40 ?7D 00 BA 23 20 20 20 20 20 20 20 20 6B 28: DIE U BE: SEEN Bi HERREN. 
>02398 2 

>023A8B 

>023B8 

>023C8 1 
>02308 73 20 20 00 04 24 40 6B 25 73 40 a0 40 40 40 40: ee 
>023E8 40 AO 40 AO AO 40 6B 25 73 40 40 40 A0 40 AQ AO: EEE BR Eee] 
>023F8 40 40 40 40 40 40 6B 25 73 40 6E 00 2C 24 40 6B: KETTE RR Il 
>02408 25 73 40 40 40 AU 40 40 40 AO AO AD AO AU 6B 25: Kr EIeTe Tee 
>02418 73 40 40 40 AO 40 AU 40 AO AU AO AD AU AQ 6B 25: : KRCHEIERZIEIGISIEISIEISIE IE 
>02428 73 40 ?D 00 54 24 20 6B 25 73 20 20 20 20 20 20: idee ame u 
>02438 

>02448 

>02458 

>02468 

>02478 73 20 20 00 AA 24 40. 65 25 73 AO AD AO AO AU AD: > RER SC EHRTRCTETENENEN 
>02488 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40: “ckazieleteleletaieiteleligte 
>02498 40 40 40 40 40 40 68 25 73 40 6E 00 CC 24 40 6b: EEE I RE 
>024AB 25 73 40 40 40 40 40 40 AO AU 40 40 40 A0 AO 40: Ariielaleisletgleteleielel 
Se 40 40 40 40 40 40 40 AU AO AU AU 40 AU AD 6B a ne 
> 8 3 

>024D8 

>0O24E8 

>024F8 

>02508 

>02518 73 20 20 00 44 25 40 40 40 AQO 40 40 40 40 40 40: ie Fi TETEIENSVEISIeHelel 
>02528 40 40 40 40 AO 40 40 40 40 A0 40 40 40 40 40 40: ElaieleireleiefeleTeledgeIeiel 
>02538 40 40 40 40 40 40 40 40 40 40 6E 00 6C 25 40 AD: EKTEEEE EEE IE 
>02548 40 AO 40 AO AD AO AO AD AD 40 AO AD AO AD AO AO: ETEIETETETETEIEIETEIEDTENETEE] 
>02558 40 40 40 40 40 40 40 A0 AO AO 40 AO AD AD AO BSD 
>02568 

>02578 

>02588 

>02598 

>025A8 


>025B8 
>025C8 
>025D8 
>025E8 
>025F8 
>02608 
>02618 
>02628 
>02638 
>02648 
>02658 
>02668 
>02678 


>02688 


>02698 
>026A8 
>026B88 
>026C8 
>026D8 
>026E8 


0 : FREICIEICIEIEIEIETEESE HEISE) 
73: EIEIETEIETETEIEICTETEIE ET 
40: EEE ERTESTENSTERSICTEN 
40: EIEBRTHELEIEIEIENTEIETEIENE 
25 : ELCICHET EA BR RREE 


3 
25: GESEHEN 


40: 
40: 


CHETERERERSIEDelelefeleteIcietel 
decke icigleleieielieiz 
20: EEE EETeiclelchelg 
73: lhhleleleicilciiic er} 
25 : ice TareIe DR BE 
20: eieauen: De 


LISTINGS ] 


>026F8 
>02708 
>02718 
>02728 
>02738 
>02748 
>02758 
>02768 
>02778 
>02788 
>02798 
>027AB 
>027B8 
>027C8 
>027D8 
>027E8 
>027F8 
>02808 
>02818 
>02828 
>02838 
>02848 
>02858 
>02868 
>02878 
>02888 
>02898 
>028A8 
>02888 
>028C8 
>028D8 
>028E8 
>028F8 
>02908 
>02918 
>02928 
>02938 
>02948 
>02958 
>02968 
>02978 
>02988 
>02998 
>029AB8 
>029B8 
>029C8 
>029D8 
>029E8 
>029F8 
>02A08 
>02A18 
>02A28 
>02A38 
>02A48 
>02ASB8 
>02A68 
>02A78 
>02A88 
>02A98 
>D2AAB8 
>02ABB 


100 


H 


Be SURT: 1 


40: ee SEJERETEN cn ich tehiel 
20: RE SET LEI ET weise 
20: 


see 


= LE 
HEREKEKEBCHE 


73: chefeheicheie: EHI] 
20: er ieTelchetelelei 
40: RIESE Delete 
25: EIER EST TIEREN 


AO: El -Icdelehaien EIeReIeDeleIeTelel 
40: EI eilig 
20: eeriilcleieciiieigie) 
40: deileieieieieleicdie 
20: en 


40: Z— TNCTEIRCIETTG 
40: TEE leleleleleleleie) 
25: EIER IE 
40: PER EEE 
73: igielefeleieteteieie Tee 
20: Ei ee ET ae 
20: AT Ein 
25: RBEET Rai 
20 [ira 
73: RR Re 
20: EA NETEIETEIEIERE} 
73: FeEreereEkE EEE HT] 
25: EETEIIEEIEII  Tae 
40: PicteleieleIeieieieleleieteielg] 
ae Ne 
20: seien 


25: BEER TCETHCTERCTCTC Bahr 

0: RNIERERIRETEERG 
25: EEE TE IE 
40: PETER ERRCHIIETEIETEIETE 
73: BEIELEISIeIeTeleleiete ch re 


u et 


ee 


Zu zz u DEU zuzn 


iu bi m Mi ME Bm MM ME BE J..: 


Di u 5 


Ka A u a OH BE Be u. 


Mi WEM U u du 


Mi 


wi 


EIER. 


_ 


| LISTINGS | 


»O2AC8 
>02AD8 
>»02AE8 
>02AF8 
>02808 
>02B18 
>02B28 
>02B38 
>02B48 
>02B58 
>02B68 


>02878 | 


>02B88 
>02B98 
>02BA8 
>02B88 
>02BC8 
>02BD8 
>02BE8 
>02BF8 
>02C08 
>02C18 
>02C28 
>02C38 
>02C48 
>02C58 
>02C68 
>02C78 
>02C88 
>02C98 
>02CA8 
>02CB8 
>02CC8 
>02CD8 
>0O2CE8 
>02CF8 
>02D08 
>02D18B 
>02D28 
>02D38 
>02D48 
>02D058 
>02D68 
>02D78 
>02D88 
>02D98 
>02DA8 
>02DB8 
>02DC8 
>02DD8 
>02DE8 
>02DF8 
>02E08 
>02E18 
>02E28 
>02E38 
>02E48 
>02E58 
>D2E68 
>02E78 
>02E88 


a0: 


73: 


40: 

a0: 
40: 
40: 
a0: 
20: 


Es SEN Er T re 
Ka JE LES IE DEN DES sau TE Bea BE TE DE De De 


a ZERICREIETERAICH Ei 
£ ac VE ie ee 


Fee unserem 
EHElERElekelelekeieleiefielelele 
teHehile ER Den Jen DE 7" u HERR TER Tee 
VEYECHENEIERGHEICHETETEIeTeIeh2] 
ekarleleleieköleicheieköielelel 
Eis ri 


73: 
23: 


ee re 
[EIelEIcizlcHeleleieteiceh ee] 


0 ae eläleieieheie 


40: 
25: 


EIERSICTESESTTREIEEETETGISEETE] 
EEE A N 


a0: 
73: 
25: 
73: 

20: 


EICIERTEESACHHTTCRIENN 
[SICHERHEIT BEIN ET 
EEE TSTCHSREHEHSIC TEE 
CREISIERSTeIeTe Vet 
EICH TEA ZB EEE 


25: 
40: 
73: 
25: 
AD: 
25: 
20: 
23: 
25: 
20: 
25: 
25: 
73: 
40: 
40: 


EI ERBE 
CHEIEIETSTCEETEETSTEIENEIGIEN 
[ETERSIETEIETETENSIETCTETEETT 
RE HEIST: ER 
CHERETEIEIEIENENEDETETETETEIGTE) 
ITS HERE 
CT 


Le en 


KERN Ei et 
CHIETCIEREREIGTEREREIGc GI 
VHERERERCHEIGHERSIETETCHE 
es udelstaichel 
EREREHEkiicerlelheheliehehe] 
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LISTINGS 


>02E98 
>O2EA8 
>02EB8 
>0O2EC8 
>02ED8 
>O2EE8 
>D2EFB8 
>D02F08 
>02F18 
>02F28 
>02F38 
>02F48 
>02F58 
>02F68 i 

>02F78 m — > = . I = = z 2 = er — I. . DA: BL AGENT. 
>02F88 FF FF: ii a Ellen 


WALLBREAK 


; Fa000 00 00 00 00 Fö 


>01030 AE OD AC 49 53 54 0D 4D 20 20 20 64 65 20 20 20 : EEE ES a 
>01040 
>01050 
>01060 
>01070 
>01080 
>01090 
>D1I0ADO 
>010BO 
>0I0C0 
>010DO 
>DIDEO- 
>010F0 
>01100 
>03110 
>01120 
>01130 
>01140 
>01150 
>01160 
>01170 
>01180 
>01190 
>011AO 
>011B0 
>DIICO 
>011DO 
>011EO 
>011FO 
>01200 
>01210 
>01220 
>01230 
>01240 
>01250 
>01260 
>01270 
>01280 
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LISTINGS 


>01290 
>012AO 
>012B0 
>012C0 
>012D0 
>D012E0 
>D012F0 
>01300 
>01310 
>01320 
>01330 
>01340 
>01350 
>01360 
>01370 
>01380 
>01390 
>013AD 
>013B0O 
>013C0 
>013DO 
>013E0 
>013F0 
>01400 
>01410 
>01420 
>01430 
201440 
>01450 
>01460 
>01470 
>01480 
>01490 
>014AOD 
>014B0 
>014C0 
>014DO 
>014EO 
>DIA4FO 
>01500 
>01510 
>01520 
-01530 


>01540 
>01550 


>01560 
>01570 
>01580 
>01590 
>0I5AD 
>01580 
>015CO0 
>015DO 
>BOISEO 
>OISFO 
>01600 
>01610 
>01620 
>01630 
>01640 
>01650 


00: TRETEN 

00: ee er ge it 

00: Hi ee 

EFF: Sa EG 

ee 2 ee Be ar 
2 1 ee ER TE] 

= ER ER Pe 

65 : kill: NT Me Een 

D2: Fr 

00: ae 

A ws a u 


DO: Hertel ferien 
Ag: BEE EEE 
C : Re 
03: EEE ARTE EEE 
BD : „ir 
AO : (EPG. PR ARE" 


FO: EEE 


ee ige 
DE: ee TE ae 
CA: pen 
DB irn se 
a a 
OB: ee 
20: ec 
CD: 


03: EEE ED 


OF: a a a a FE 
OB: Pi Eee a Fin Fl 
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TEE] 


LISTINGS 


> 0 60 EO 25 FO FB ES BE 40 03 AE 41 03 AY9 20 9D PT ee 
a eco OF DO C? EO 00 FO E9 CA 8E 40 03 AE 41 03 A9 a = a ET Re 
>01680 = 
>01690 
>016A0O 
>016B0 
>016C0 
>016D0O 
>D16E0 
>016F0 
>01700 
>01710 
>01720 
>01730 
>01740 
>01750 
>01760 
>01770 
>01780 
>01790 
>017AOD 
>017B0 | 
>017C0O C9 05 FO EA A9 20 91 D2 C8 91 D2 20 03 15 20 7B: EEE A EEE 
>017D0 iA AC 9F 17 EA EA 20 DA 16.20 DA 16 20 DA 16 AO: Pair ar wa wa u 
>D17EO ; 3 

>017FO 
>01800 
>01810 
>01820 
>01830 
>01840 
>01850 
>01860 
>01870 
>01880 
>01890 DA 16 A9 01 8D 38 03 AC 37 03 20 7A 15 AY 20 2 a ee ern 
>018AO 
>018B0 
>018CO0 
>018DO 
>D1IBEO 
>DIB8FO 
>01900 
>01910 
>01920 
>01930 
>01940 
>01950 


>01960 17 20 AC 17 20 FD 19 AC 37 03 CO 27 FO 0D AD 2D: ee rn 
>01970 03 C9 17 BO 03 AC 37 19 AC CF 19 AC ?7F 19 EA 20: FE a 


>01980 DA 16 A9. 04 8D 38 03 AC 37 03 20 7A 15 A9 20 91: Fi EEE 
>01990 E 


>019ADO 
>019B0 
>019C0 
>019D0 
>019EO 
>019F0 


>01AO0 EE 3D 03 20 7A 15 C8 Bi D2 AC 37 03 C9 41 F0 2 rare 
>01A10 88 Bi D2 AC 37 03 C9 43 FO AA AC:37 03 B1 D2 CC re ee 
>01A20 A1 FO IF C9 A2 FO 2C C9 A3 FO 39 CE 3D. 03 20 A: ke re 
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re 


LISTINGS 


>01A3O 
>01AAO 
>D1ASO 
>01A60 
>01A7O0 
>01A80 
>01A90 
>D1AAO 


CD: RE Pa 
15 ee Far 
CD : RE A Er 
20: Pi DEE 


FB: ER Mi BE Ba 1 a ET 
Sa a BE a 


a 


>D1ABO 


ee: EL TRIEIEIRTRIEIRIENER LEN] 


Anfügen an bestehende 
Datei 

Daten auf Bildschirm 
Print (Daten auf Drucker) 
Löschen der Daten 
Umschalten zur Zahlen- 
Text-Datei 


de 
Nach Aufruf des Modus 


er 
j=} 


Bei der allgemeinen 
Textdatei sind Komma, 
Semikolon, Doppelpunkt, 


“ Anführungsstriche zur 


Eingabe erlaubt. 
Menüpunkt > Anfügen 

an eine bestehende 
Datei<: Sind keine Daten 
im Speicher, informiert 


. adresse möglich. Drucker | 


Änderung der Sekundär- 


einschalten nicht verges- 
sen, sonst Programm- 
absturz! 

Menüpunkt >Löschen 
der Daten<: Nach einer 
Sicherheitsabfrage sind 
dann die Daten unwider- 


>Neueingabe< erfolgt der Computer darüber. Es bringlich futsch und der 
die Abfrage >Dateiname<. wird bei bestehenden Da- Arbeitsspeicher geleert. 
Nach Ende Daten spei- ten die Anzahl angezeigt, Menüpunkt > Umschalten 
chern, falls nötig Daten- um weitere Daten anzu- zur Zahlen und Text- 
disk einlegen. fügen. Eingabe mit> *« < datei< (oder unigekehrt): 
Menüpunkt > Speichern beenden. Danach Abfrage Nach Anzeigen des Zwi- 


Als erstes erfolgt die 
Auswahl zwischen einer 
reinen Textdatei oder ei- 
ner gemischten Zahlen/ 
Textdatei. 

Nach Erscheinen des 
Menüs können folgende 
Unterprogramme aufge- 
rufen werden: 

Neue Datei eingeben 
Speichern einer Datei 
Bestehende Datei laden 


einer Datei<: Sollte es 
Probleme beim Abspei- 
chern der Datei geben, 
wird automatisch eine 
Disk-Fehlermeldung in 
Klartext gedruckt. Menü- 
punkt > Daten lade: 
Nach Abfrage des Datei- 
namens erfolgt entweder 
eine Übernahmebestäti- 
gung oder eine Disk-Feh- 
lermeldung im Klartext. 


>Daten speichern?<, 

falls nötig, Datendisk ein- 
legen. 

Menüpunkt >Daten 

auf Bildschirm<: Abfrage 
>Einzelschritte per Ta- 
stendruck oder angezeigt, 
Eingabe beenden mit >*< 
Menüpunkt >Drucken<: 
Nach Aufruf dieses 
Programmteils ist zur 
Druckeranpassung die 


schenmenüs Text- und 


 Zahlendatei sind folgende 


Auswahlpunkte möglich: 
Neueingabe 

File laden 

File speichern 

File anzeigen 

File addieren 

File erweitern 
Druckerroutine 


nde 
Umschalten auf Textdatei ® 


Zeig beim Porto 
Herz & Verstand: 


Wohlfahrts- 
briefmarken. 


Hilfe, die ihr Ziel erreicht. 


Erhältlich bis Ende März bei der Post, ganzjährig bei den Wohlfahrtsverbänden. 


SENSATION 


Die-Über-Hammer-Info 
Für CW C16/116 P/4 SPECIAL EXCLUSIV! 
Unsere Betriebsbuchhaltungssoftware 
wollen wir nun mit einem Personal-Computer machen. 


Jeweils die ersten vier Einsender erhalten daher von uns 
brandneue, ungebrauchte V. 3.5 Computer mit voller 


Garantie! 


C 16 mit 64 KByte RAM (C 164) für 
Plus 4 mit USERSOFTWARE für 


Der RAM-Umbau C 16/116 wie bisher für 


198,— DM 
298,— DM 


97,80 DM 


(+ 2,20 DM P.Kost.Gebühr) in einem Tag. 


Jetzt auf Grund vielfacher Anfragen NEU!!! 


RAM-UMBAUSET 64 K für 
(2 Chips in Spez.Verp. + Umbauanleitung) 


Alles gegen Vorkasse — wer zusätzlich 6,50 DM über hat, 
kann auch gegen Nachnahme bei: 


50,— DM 


Elektronik-Technik, Tannenweg 9, 
‘2551 Trappenkamp, Tel: 04323/3991 


bestellen. 
Weitere Infos gegen Freiumschlag. 


Mixed Datei 


10 rem mixed datei ========-==-=-=-=016 
20 rem (p) commodore-welt bw*= 
30 rem ========-==2=-=== === === ===0==== 
40 rem (c) by = 
50 rem harald beiler = 
60 rem 


70 rem version 3.5 40z/ascii = 
80 rem c16/p4 + 1530/1541/drucker = 
90 rem ==> === 222 oo mes onen 


100 color 
0,1:color4,1:color1,14:scncelr: urärt 
chr$( 14) chr$( 11) chr$( 27) chr$( 69) 
110 chari ‚4, S5S,"T = reine Textdatei. 
es aa ai FL 
120 char1,4, 7, "Z = Text mit Zahlen 
+ Addition” Er 
130 char1,0,10,”Bitte druecken Sie 
entsprechende Taste!"”:print 
140 getkeya$ 
150 ifa$<>"t"anda$<>"z”"then140 
160 ifa$="t"thengosub 180:goto240 
170 ifa$="z"thengosub180:gotoi890 
180 1z$=" 

":rem 39 leerzeichen 
190 dz$="HHH, HAB. HH” 
200 ze=1000:dima$f( ze) :n=1000:dimnf n 
) :return 
240 rem RHERRHRRRHHRHRRHHRHRRR EIER 
220 rem #RUsSHeHnnernerettene titel *# 
230 rem HRRRRRRRSRRRRRRRRRRRRRSBRRN 


240 gosub1830:char1,8,3,"Allgemeine 
Text Datei"”,1:print:gosub660 

250 char1,2,6, "Eingabe: 

Dateiname oder Nummer":print:chari, 
11,7,”die Daten":print:gosub660 

260 char1,2,10,"(Alle Eingaben auss 

er Anfuehrungs-":print 

270 char1,2,11,"zeichen sind erlaub 
t !)":print:gosub660 

280 char1,12,18,"M = ME N UE"”,1:p 
rint 

290 getkeya$:ifa$="m"then300:else:g 
ot0290 

300 scnclr:gosub690:gosub 11130 

310 getkeyq$ 

320 ifg$="n"goto450 

330 ifg$="h"goto1230 

340 ifq$="b"goto900 

350 ifq$="d”goto960 

360 ifg$="a"goto1560 

370 ifgq$="e"”thenend 

380 ifg$="1"goto1750 

390 ifgq$="s"goto800 

400 ifg$="u"gotoi890 

410 goto310 

A20 rem Haag retenuenagononaaeeee 
430 rem F#t#Hsreaıt neueingabe * 


‚3/m)", 


440 rem FRRRRARRSHRHHRHHRISIHIHIE IE 

450 sencir 

460 char1,15,2, za 

-gosub660: gosub680 

er printchr$t 19)tabl 2) "Dateiname: 
:poke19,A:inputcm$:poke19,0 

a80 gosub490: got 0730 

490 print:ze=!1: 

500 printtab( 2); :poke1319,34:poke23 

9,1:inputa$( ze) :printchr$( 13) ;:t1=z 

e/15:fori=1t040 

510 iftl-ithengosub580:printchr$( 19 

)"Seite: "tl+1:char1,2,8,"" 

520 next 

530 ifa$( ze) =chr$( 42) thenreturn 

SAU ze=ze+t1i:poke239,0 

550 goto500 

560 rem HRrHHHRRRRRRRRHHRHRIRRIII 

570 rem *######3#8 unterprogramme * 

S80 rem PRRRRRARRHRRRRHRRRISRR 

590 printchr$( 18) ; :chari1,2,22,"Seit 

e vor="":char1,20,22,"Menue = ö” 

600 getkeya$ 

610 ifa$=chr$( 145) then640 

620 ifa$=chr${( 92) then300 

630 getkeya$ 

640 char1,0,8,"",0:i=0: dountili=15 

:print1z$:i=i+1:1loop 

650 char1,0,8,"":return 

660 printtab( 1) :i=D:dountili=36:pri 

ntchr$( 96) ; :i=i+1:1oop: PEanE 

670 return 

680 char1,7;,5, "(Eingabe Ensnnden mi 

t °*')":print:return 

690 char1,15,2,"M EN U E”,1:print: 

gosub660: return 

700 i=1:dountili>=ze 

710 ifa$(i)=""then1700:1loop 

720 return 

730 char1,8,22,"Daten speichern ? ( 

i:print 

740 printtab(2)chr$( 18) "Falls noeti 

g, Datendisk einlegen !"chr$( 146) 

750 getkeya$ 

760 ifa$="j"then800:else:goto300 

770 rem PRRRHRRRRHRRHRRRRIHEIHRIN IE 

780 rem *#*#x##z=# daten speichern # 

790 rem MHRHRRRRRRRHRRRRARRTRIRRR 

800 scncelr:char1,0,2,"Daten speiche 

rn"”,1:print 

810 print"File-Name oder -nummer: " 

;cm$ 

820 print:printcm$” wird jetzt gesi 

chert":print"Bitte warten.":print 

830 open2,8,2,"$0:"+cm$+",s,w" 

840 printf2,ze 

850 i=1:dountili=ze:print#2,chr${ 34 

J+a$l 3) +chr$( 34) :i=i+r1:loop:close2 


NER 


Me sced Datei 


850 gosub 1650:g0oto1030 

8370 rem HRS 
580 rem #*##tr#:#34### daten laden * 
890 rem ##t##raxrreeteretenenenge 
900 senclr:chari,0,2,"Daten laden." 
‚i:print 

910 print"Dateiname: 
putcm$:poke19,0:print 
920 open2,8,2,"$0:"+cm$+",s,r":prin 
tcm$ 

930 input#2,ze 

940 i=1:dountili=ze:input#2,a$(i):i 
=i+r1:loop:close2 

950 gosub 1650: g0t0300 

960 scnelr:char1,0,2,"Bildschirm-Au 
sgabe", 1:print 

970 printtab(2)chr$( 18)" E "chr$( 14 
6) "inzelschritt per Tastendruck” 
980 printtab(2)chr$( 18)" G "chr$( 14 
6) "esamte Datei anzeigen" :gosub660 
990 getkeya$ = 

1000 ifa$="e"then1360 

1010 ifa$="g"then1i450 

1020 else:goto990 

1030 printtab( 2)chr$( 17)chr$( 18)" D 
= Drucken "tab(26)” M = 
Menue"chr$( 146) 

1040 getq$ 

1050 ifq$="d”"thengosub 1230:g0t0300 
1060 ifq$="m"then300 

1070 goto1040 

1080 goto1040 

1090 else:goto1040 

1100 rem HHHHHHHHHSRHRIRR HA 
1110 rem #####4#4 ein/ausgabemenue *# 
1120 rem BRHRRRAHRHHRRRRRHHRIHHRHFNEE 
1130 printchr$( 19) tab[ 2)chr$( 18)" N 
"chr$( 146) "eue Datei eingeben":pri 

nt 

1140 printtab(2)chr$( 18)" 5 "chr$f( 1 

46) "peichern einer Datei"”:print 
1150 printtab(2)chr$( 18)" B "chr$( 1 

46) "estehende Datei laden":print 
1160 printtab(2)chr$( 18)" A "chr$( 1 

46)"nfuegen an bestehende Datei":pr 
int 

1170 printtab( 2)chr$( 18)" D "chr$(1 

46)"aten auf Bildschirm":print 

1180 printtab(?2)chr$( 18)" H "chr$( 1 

46) "ardcopy (Druckerausgabe) ":print 
1190 printtab(2)chr$( 18)" L "chr$(1 

46) "oeschen von Daten" :print 

1200 printtab( 2)chr$( 18)" U "chr$t( 1 

46) "mschalten zur Zahlen/Textdatei" 
:gosub660 

1210 printtab( 2)chr$( 18)" E "chr$(1 

46) "NDE” :gosub660: return 

1220 rem HHHRRRRHHRRRARHREIERE RS 


“".:pokei19,4:in 


1230 rem ##r###2# daten ausdrucken # 
4240 rem MRHRRRRHRRRRRRHRIRIIRISESESESEIE 
1250 senclir:char1,0,2,"Drucker-Rout 
ine.",1:print 

1260 print:print” Aenderung der 
1270 print” Sekundaeradresse" 
1280 printtab( 19) chr$( 145) "7"chr$( 1 
57)chr$( 157) chr$( 157) ; :inputsa 

1290 printchr$( 17) chr$( 18) "Wenn Dru 
cker bereit ist, Taste !"chr$( 146) 
1300 poke239,0:wait239,1 

1310 open4,4,sa:cmd4 

1320 print#4,cm$:print#4:i=1:dounti 
li=sze:print#4,a$(i) :i=i+1:loop:prin 
t#4:close4:g0t0300 

1330 rem HRRRAHRRRRHRRRRRSISESIEIEIEIESEIEN 
1340 rem #*###* bildschirm-ausgabe * 
1350 rem HHRHHRRRERSERRRRISESSESEISHESSTN 
1360 gosub?700 

1370 printcem$:print:ze=1 

1380 printtab( 2)a$( ze) :t1=-ze/15:pok 


'e239,0:wait239,1 


1390 for j=1t040 7 

1400 ift1=jthengosub640 

1410 next 

1420 ifa$( ze) =chr$( 42) then1030 

1430 ze=ze+1 

1440 goto1380 

1450 gosub?700 

1460 printcm$:print:ze=1 

1470 printtab(2)a$( ze) :t1=ze/15:for 
3=1t040 

1480 iftl-jthenprintchr$( 18) "Seite 

vor=Taste."chr$( 146) :poke239,0:wait 
239,1:gosub640D 

1490 next 

1500 ifa$( ze) =chr$( 42) then 1030 

1510 ze=ze+1 

1520 goto1470 

1530 rem HRRRRRRRRRRRRREINSEESESSEIGESEGEE 
1540 rem append — daten anhaengen *# 
1550 rem Mr RR 
41560 scnelr:gosub?00:gosub 1620: ze*z 
e-1 

1570 gosub680:gosub660:printtab( 2)c 
m$:print:printtab( 2)a$( ze) 

1580 ze=ze+1:printtab(2);:poke1319, 
34:poke239, 1:poke19,4:inputa$( ze) :p 
oke19,0:print 

1590 ifa$( ze) =chr$( 42)then1610 

1609 goto1580 

1610 print:goto?730 

1620 ifze=900then 1700 

1630 printtab( 2)chr${ 18) "Datensaetz 
e bisher:"str$( ze-1)chr$( 146) 

1640 printtab(2)” Letzter Datensatz 


wird angezeigt.":return 
1650 rem HBRRRRHHHRRRRRRRRHRHRREEEN 
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mMized Datei 


1660 rem #FHHtusaatnett disk-fehler * 
1670 rem HHRHRRRHRRRIRRHIHHEIHHEH IE 


1680 ifds“>0Othenprintds$; ds:cm$-"": 

goto300 

1690 return 

1700 gosub 1830:printchr$( 19) chr${ 17 

)tab(3)chr$( 18)" Keine Daten im Sps 

icher !!1"chr$( 146) 

1710 char1,25,18,"M = MENUE”,1:prin 

t:goto290 

1720 rem MRRRRRRRRRHRRRRHRRRRRRIIEN 

1730 rem #####3### daten loeschen * 

1740 rem HRRRRRRRSHRRRRRRRRRSERIIRIESEE 

1750 gosub 1830: print:printchr$( 19) t 

ab{ 2)chr$( 17) chr$( 18) "Daten loesche 
"chr$( 146) 

1760 print:printtab(2)"Sind Sie sic 

her (j/n) 7"”:gosub660 

1770 getkeya$ 

1780 ifa$="j"then1790:else:goto300 

1790 printtabf{ 2) "Bitte warten...":i 

=1:dountili=ze:a$(i)="":i=-i+1:1loop: 

em$=" [} 

1800 print :printtab( 2)chr$( 18)” Arb 

eitsspeicher ist jetzt leer."chr${ 1 

46) 

1810 fort=1t0200:next:goto300 

1820 char1,0,10,"”":i=1:dountili=10: 

printlz$; oop: return 

1830 scncelr 

1840 printchr$( 176) ; :i=O 

1850 dountili=36:printchr${ 96) ; :i=i 

+1:loop:printchr$( 174) : j=0 


1860 dountilj=-20:printchr$( 125) tabf 


37) chr$( 125) : j=3+1:1loop:k=0 

1870 printchr${ 173) ; :dountilk=36:pr 
intchr$( 96) ; :k=k+1:loop:printchr$f 1 
89) 

18580 return 

1890 gosub1830: gosub690 


1900 print :printtab( 10) chr$( 18) "TEX 


T/ZAHLENDATEI"chr$( 146) :print 


1910 printtab(9)” 1 = Neueingabe"” 
1920 printtab(9)"” 2 = File laden" 
1930 printtab(9)" 3 = File speicher 
n" 

1940 printtab(9)” 4 = File anzeigen 
1950 printtab(9)" 5 = File addieren 
1960 printtab(9)" 6 = File erweiter 
n"” 

1970 printtab{9)"” 7? = Drucker-Routi 
ne” 

1980 printtab(9)" 8 = ENDE 

1990 print:printtab{(9)” 9 = Umschal 


ten auf ” 
2000 printtabl 14) "Textdatei" 
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"2430 


2010 getq$: ifq$=""then2010 

2020 onval( q$) goto2040, 2190, 2250,23 
30,2430, 2580, 2700,2860, 300 

2030 80102010 : 

rem HRRRRRHRRRRHRRRRRRRRSRTNFE 
rem ######### neueingabe t/z * 
rem BRRRRRRRRREIEHESERRSEIIEIEIISRIENE 


pn=1len( "Neueingabe eines Files 


2080 scnclr:char1,(40-pn) /2,2,"Neue 
ingabe eines Files”, 1:print:gosub66 
0 

2090 gosub680:gosub660 

2100 poke19,4:input”File Name: ";fil 
$:poke19,0:print:ifn=1000thenn=DO 
2110 print"EG-Text...";:inputsb$(n) 
:print 

2120 ifsb${n)=chr$( 42) then 1890 

2130 print"EG-Zahl...";:inputz({n):p 
rint 
2140 
2150 
2160 
2170 


n=n+1 

goto2110 

rem HRRHRRRRRRRRSRRRRRRHRREHINE 

rem #FHFHE8HtHt8 File laden *® 

2480 rem FrHRRRRHRRHRRS 

2190 scnclr:printchr${ 18)"File lade 
"chr${ 146) 


2200 poke19,4:input"File-Name: ";fl 
$:poke19,0:print 
2210 open2,8,2,f1$+",s,r":input#2,n 


2220 fori=Oton:input#2,sb$[i) :input 
#2,z(i) :next:close2 u 

2230 goto1890 

2240 rem HRARRRARSERERRSRIERSR RR 
2250 rem ####:2#:2#2 file speichern *# 
2260 rem MRRRRHHRRHRRRRRHRILISRRRN 
2270 scnclr:printf1$"” wird gesicher 
t. Bitte warten..." 

2280 open2,8,2,"$0:"+fF1$+",s,w" 
2290 print#2,n 

2300 i=0:dountili=n:printf#2,sb$(i): 
print#2,z(i) :i=i+1:loop:close2 

2310 goto1890 

2320 rem BHRHRRRRRRRRRRHRRRRRISRRISIEINEN 
2330 rem Hirt. file anzeigen * 
2340 rem FHRRRHHRRRRRRRREISHIRIREIENENE 
2350 scencelr:printchr$( 18) "File anze 
igen.”"chr$( 146) 

2360 print”File-Name: 
2370 iff1$=""then2680 
2380 i=-0:dountili=n 
2390 printsb$(i)tab( 25); 
g dz$; z(i) :i=i+1:1loop 
2400 gosub2870 


2410 goto1890 
2420 rem HHRRRRHRRRRRRRHRRISHHRISHSGE 


rem FF HHesuner addition # 
rem PRRRERRHHRHRHRHSRRREEIEE 


"f1$ 


:print usin 


2440: 


Mixed Dateıäi 


2450 scnclr:printchr$( 18)"Werte add 
ieren."chr${ 146) 

2460 print"File-Name: 
2470 iff1$=""then2680 
2480 s=0:i=-0:dountili>n 

2490 printsb$(i)tab(25);:print usin 
ge dz$; z(li) :s=s+z(i) :i=-i+1:1loop 

2500 printtab( 27) "-------- ":printta 
b(25);:print using dz$;s 

2510 print :print :printtabf 10) chr$f 1 
8) "Ausdrucken j/n ?"chr$( 146) 

2520 getx$:ifx$="n"then1890 

2530 ifx$="3j"then2700 

2540 g0to2520 

2550 gosub2870 

2560 goto1890 

2570 rem HRRHRRHHRHRHRHRRRETSRRIRI IE 
2580 rem FH EEE HERE append *# 
2590 rem HRREARRHRRHRRRRISHRIEISEHIE NE 
2600 scncelr:printchr$( 18)"File erwe 
itern/Daten anhaengen”chr${ 146) 
2610 print"File-Name: "flI$ 

2620 iff1$=""then2680 

2630 printsb$(n-1),z{n-1i) 

2640 :input"EG-Text...:";sb$(n):pri 
nt:ifsb$( n) =chr$( 42) then1890 . 

2650 input"EG-Zahl...:";z{n) :print 
2660 n=n+1 

2670 got0o2640 

2680 char1,7,12,"Keine Daten im Spe 
icher!",1:forg=1t0300:nextg:gotoi189 
[} 
2690 
2700 
2710 
2720 
cken. 
2730 


"f1$ 


rem FHERrEH@SEHEHEHHEHEE HER EENE 


rem ###F##83#% druckerroutine *# 
rem HRAHRRHHRHHRHHHHRRHRRREIEE 
senelr:printchr$( 18) "Daten dru 
"chr$( 146) 

print"Aenderung der" 

2740 print"Sekundaeradresse:" 

2750 printtabf( 19) chr$( 145) "?"chr$f 1 
57) chr$( 157) chr$t( 157) ; 

2760 inputsa 

2770 print:printchr$( 18) "Wenn Druck 
er bereit ist, Taste druecken."chr$ 
( 146) 

2780 poke239,0:w3i1t239, 1 

2790 open4,4,sa:cmd4 

2800 print#4,tab{5)f1ı$ 

2810 fori=0ton-1 

2820 print#4,tab(5)sb$( i)tab( 40-1en 
(sb$( i))-len( dz$));:print#4,using d 
2$;2(i):s=s+z(i):next . 

2830 print#4,tabl( 37) "-------- = 

2840 print#4,tab( 45-len({ dz$)) ; :prin 
t#4,using dz$;s 

2850 print#4:close4:gotoi890 

2860 scnelr:printehr&tf IF) chr$( 142): 
end 


2870 printchr$( 17) chr$( 17) chr$( 18) ” 
Taste fuer ’MENUE’ "chr$( 146) 


2880 
28ag90N 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 


return 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 


060671 
008731 
000000 
000000 
000000 
051625 


Vergessen Sie die umständ- 


liche Positionierung des 
Cursors mit den Steuer- 
zeichen. Es gibt einfachere 
und leistungsfähigere Mög- 
lichkeiten, dieses zu rea- 
lisieren. Außerdem ist die 
Möglichkeit mit den 
Steuerzeichen langsam 
und frißt Speicherplatz. 
Das Basic 3.5 des C16/ 
C116/P4 stellt uns hierzu 
den Befehl CHAR zur 
Verfügung. Obwohl er 
laut Handbuch im Grafik- 
bereich angesiedelt ist, 
läßt er sich doch in jedem 
Programm verwenden. 
Allerdings gibt es, aus 
eigener Erfahrung, gele- 
gentlich Schwierigkeiten 
mit diesem Befehl. Für 
eine andere Möglichkeit 
stellt uns das Betriebs- 
system noch eine andere 
Routine zur Verfügung. 
Sie nennt sich Plot. Der 
Computer braucht sie 
laufend für die gleichen 
Aufgaben. Warum sollen 
wir sie dann nicht benut- 
zen? Obwohl man bei der 
16er-Serie ohne Poke- 
Befehle auskommen kann, 
müssen wir ihn hier an- 
wenden. Auch ein SYS- 
Befehl wird benötigt 

(Sys steht immer für 


mixed datei 

bytes 
bytes 
bytes 
bytes 
bytes 
bytes 


zsze zz ze 


poke239,0:wait239, 1 


memory 
program = 
variables = 
arrays 

strings = 
free (0) = 


System). Aber die Sache 
ist halb so schlimm wie 
es aussieht. Die Einsprung- 
adresse beträgt auch hier 
65520. Wieso auch hier, 
werden Sie sich fragen. 
Da Commodore auf Tra- 
dition hält, nicht lachen, 
sind die Einsprungadres- 
sen des Kernal immer 
gleich. Für die Routine 
mit SYS benötigen wir 
3 Adressen: 
2035: für die Zeile 
2036: für die Spalte 
65520: a 
der Routine 


Geben Sie einmal folgen- 
des Programm ein und 
sehen Sie, was sich hier 


tut. 

100 CU=65520 

110 ZE=2035 

120 SP=2036 

130 PokeZE,11:PokeSP, 
10:5SYS CU 

140 Print ‘CBM Revue‘ 


Wie Sie sehen, wird jeder 
Printbefehl der Anwei- 
sung an die mit ZE und 
SP gewählte Stelle des 
Bildschirms gesetzt. 
Achtung! Denken Sie 
immer daran, daß der 
Computer mit der Zähle- 
rei bei 0 beginnt! 
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KALENBER 


Das Programm „Kalen- 
der“ ist ein Utilitie, wel- 
ches sehr praktisch” ist, 
und dem Computerfan er- 
laubt, seine Jahresplanung 
ganz auf das Terminal zu 
verlegen. Ob man nun nur 
die Monate auf Feiertage 
durchsehen will, oder 
nachprüft, auf welchen 
Wochentag diesmal Weih- 
nachten fällt, alles ist 
selbstverständlich der 
Grundstock für dieses Pro- 
gramm. 


VIELES IST MÖGLICH! 


Interessant für den User 
sind die weiteren Möglich- 
keiten, die ihm ‚„Kalen- 
der“ bietet: Er kann so- 
wohl direkt in den Monat, 
als auch, was schneller 
und praktischer geht, im 
Direktmodus Notizen 
schreiben. Diese Notizen 
tauchen dann selbstver- 
ständlich beim Auflisten 
des jeweiligen Monatsquar- 
tals oder in der Gesamt- 
übersicht, mit entsprechen- 
dem Datum, auf. Hat man 
nun alle seine Notizen 
eingegeben, kann man die- 
se separat auf Band spei- 
chern, und auch später 
wieder einlesen lassen. 
Die Notizen müssen nicht 
alle in einem Block ein- 
gegeben werden, es geht 
auch. nacheinander, nur 
müssen sie dann auch 
nacheinander in Blöcken 
gelesen werden. Als be- 
sonderen Service gibt die- 
ses Programm auch eine 
Erklärung seiner Beson- 
derheiten und eine Hilfe 
bei auftretenden Schwie- 
rigkeiten. 

Insgesamt gesehen ist 
dieses Programm „Kalen- 
der“ bei richtiger An- 
wendung sehr nützlich für 
den User. Es würde be- 
stimmt noch effektiver 
werden, wenn man statt 
der verwendeten Dataset- 
tenversion die Disketten- 
version nähme, doch da 
ich Besitzer einer Data- 
sette bin, habe ich mich 
für erstere Lösung ent- 
schieden. 
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Zur Programmerklärung: 


Zeile 270: 

Um dem User Arbeit zu 
ersparen, sind die pro- 
grammierbaren Tasten 
Fl, F2, F3, F8 (“Help‘‘) 
mit viel gebräuchlichen 
„Notizfloskeln‘ belegt. 
Zeile 390: 

Falls irgendwo ein Fehler 
auftreten sollte (z.B. 

Run Stop oder “Type 
Mismatch‘‘) springt das 
Programm zum Menü 
zurück. 

Zeile 420: 

Durch die Zahl, die ge- 
wählt wurde, springt der 
Computer in das entspre- 
chende Unterprogramm. 
Zeile 500-610: 

Bei der Monatseingabe 
kann man entweder den 
ganzen Monatsnamen oder 
dessen Ordnungszahl nen- 
nen: daß der Monatsstring 
MO$ im Endeffekt immer 
den ganzen Monat bein- 
halten muß, hängt mit 
dem späteren Ausdruck 
zusammen. 

Zeile 630: 

Hier wird dem Computer 
durch die Variable GS 
mitgeteilt, ob das Unter- 
programm direkt vom 
Unterprogramm “Notiz 
— in Monat“ oder vom 
Menü angesprungen wur- 
de, und handelt auch 
dementsprechend. 

Zeile 670-690: 

Hier wird die Variable DA 
so zurechtgebogen, daß 


“ man die Notiz grafisch 


auch wirklich an dem Tag 
eingeben kann, den man 
vorher angegeben hat. 
Zeile 870/990/1110: 
Diese Zeilen bewirken, 
daf3 der Monatsname, un- 
abhängig von seiner Län- 
ge, immer in der Mitte 

der Zeile steht. 

Zeile 880 £.f./1000 f£.f./ 
1120 £f;: 

Mit diesen Zeilen wird der 
Monatsname, wieder un- 
abhängig von seiner Länge, 
unterstrichen. 

Zeile 1250-1400: 

Jede Datazeile beinhaltet 
die Sonn- und Feiertage 
eines bestimmten Monats. 
Bitte lesen Sie weiter auf Seite 113 


539 ifmo$="april"or mo&$="4"thenmo=4 


18 rem Kalender 19864 =ee=mmanzeseupd 
28 rem (P) EBM REVUE TEAM = 
1%] rem Z=S2ES5: 22 =5S 2:25:52 2355333255232 22 =22=2= 
48 rem (C) by = 
S@ rem Martin. Purucker = 
68 rem Wuerzburg = 
7@ rem Version 3.5 AgzZ/ASCII = 
88 rem Plus/4 C-165/116 + 1531 = 
9A rem sezsSezzz<gzZzzszzaszamszezuume 


258 dimtes(31,12) 
2689 ro&=chr$(18):ra$=chr$(146) ;es$= 
chrs(27):g$=chrs(81) 

278 key 1,"geburtstag":key 2, "termi 
n":key 3, "besprechung":key8, "party" 
268% rem Maske KRRFRKHRRRRIIIITTTTNN 
29% senelr:color 1,7,4:color 4,12,6 
color 8,12,6:woße"";gs5=f 

388 char 1,5,1,"kalender 1984 - ueb 
ersicht ;" 

318 char 1,5,35,ros+" 1 
monate/quartal" 

328 char 1,5,?,ro8+" 2 "+raß+" 
notiz - direkt" 

339 char 1,5,9,ro$+" 3 "+ras+" 
notiz - in monat” 

348 char 1,5,11,ro$+" 4 "!+raSt"..0:0 
‚notiz - speichern" 

3358 char 1,5,13,r08$+" 5 "+ras+!" 
‚natiz - lesen (von band) 

384 ehar 1,3,19,ro8$+" [-) N4prast" son 
‚noatiz - gesamtuebersicht" 

378 char 1,5,17,ro$+" 2 ER? 
:programm - ende" 

388 char 1,5,19,ro0$&+" 8 


N4PBBt". 2000 


"+ras+!" 


".programm - erklaerungen" 


38 trap 29@:char 1,28,24,"ic) m.p. 
83" 

428 poke 239,8:getkey no:color 1,1: 
eolor 9,2:color 4,7,6 

al@ if no>Bornotlthen292 

428 on no gosub432, 728,659, 1418,146 
2,1799,449, 1859 

443g goto 298 

a4 scnelrsendirem Programmende #3%* 
459 rem NONBER/MURELES Eingabe X#%% 
488 senelr 

478 print: Zap geuuennchter monat. 
";mos$ 

488 print: input "gewuenschtes guarta 
1."Iqu 

78 if qu>3 or qui then 488 

s2@ ifmo$="januar"or mo$="1"thenmo= 
i:mo$="januar" 

519 ifmo$="februar"or mo$="2"thenmo 
=2:mo$="februar" 

s2@4 ifmo$="maerz"or mo®="3"thenmo=3 
:mo$="maerz" 


Kalender 


:mo$="april" 

54% ifmoß="mai’or mo$="5"thenmo=5:m 
o86="mai" 

559 ifmosS="juni"’or mo$="Sö"thenmo=6: 
mos=" juni" 

568 ifmos="juli"or mo$="?"thenmo=?: 
mos="juli" 

578 ifmose"august"or mo$="8"thenmo= 
B:mo$=" august" 

589 ifmo$="september "or mo$="9"then 
mo=9:mo$="september" 

598 ifmo$s="oktober"or mo$="1@"thenm 
o=18:mo$="oktober" 

#629 ifmo$="november"or mo$="ii"then 
mo=11:mo$="november" 

8618 ifmo$="dezember "or mo$="12"then 
mo=12:mo$="dezember" 

628 on qu gosub 839,979, 10898 

638 if ge=i then return 

638 poke 239,d:getkey a$s:ireturn 

#352 rem Notiz - in Monat KRRKRRRKRH 


649 gu=i:gosub 45@:color I,il:char 1 


29,1, ""sinput da:de=da 
678% 
689 


if queithenda=da#2+2 
if gue2thendas (da-18)*2+2 


Erd if au=3thenda=s (da-29) *2+2 

728 char 1,35, da,es$+g$:inputtes(de, 
mo) 

718 getkey aß:return 

728 rem Notiz - Direkt KXKNKKKRKRRR 
738 scnelr 

748 print:print"in welchem monat so 


il die notiz stehen":print 

7S5@ print"(1-12) "j:input mo 

769 if mo>iZ2 or moi then 759 

??8 print:print"an welchem tag soll 
die notiz stehen":print:iprint" (1-3 
1/39/28) "5 

788 input de 

798 it de>3i or de<i then print"(i- 
31/38/26) "j:goto 788 

898 print:print"wie soll die notiz 
lauten {(-32 zeichen) ":print:inputte 

“(de,mo) 

sid iflen(ttes(de,mo))>32 then print 
"(-32 zeichen) "sinputtes(de,mo) 
828 print:print"noch weitere notize 
n {j/n) ?"i;getkey nn® 


8308 if nn®="j"then?29 

848 return 

85% rem monate |. quartal KRRRRRERRR 
888 seneir 

878 color 1,6,4: char 33 2@-int(lentm 


0$)%.5),1; mos$ 

889 Fort=itolen (mo$) 

8978 char 1,28-inttlentmo$)%*%.5)-1+t, 
2,°D” 

988 next 


iA char 1,9,i,str$(quartal)+". 
rtal" 

928 fort=2tollt:color 1,68,4:908ub 12 
5%:3osub 132% 

938 char1,9,t%*%2 ,wos+strs(tt-1): for 5 
-5t038;chari,s,t*%2,ro$+" "+ra$ 

949 iftestt-i,mo)<>""then ehar 1,6, 
t*%2,tes(tt-i1,mo) 

95@ next:inext 

return 

rem Monate 2.Quartal KRKFRRRERH 
scenc)r 

eolor 1,6,4:char 1,29-int(len(m 
0$8)%.5),1,mo$ 


gua 


1898 fort=itolen(mo$) 


1818 char 1,28-inttlentmo$)%.5) -i+t 
PR 

1828 next 

1839 char 1,8,1,str$(quartal)+". qu 
artal" 

1848 fort=12to2l:color 1,6,4:905ub 
1259: gosub 1329 

18959 chari1,%, (!t-10)*2 ,woß+stre(t-i) 
:tor 8=5t038:chari,s, (t-IM) #2, ros+" 
."+ra$ 

1969 iftes(it-i,mo)<t>""then char 1,6 
‚tt-ig)%2,testt-i,mo) 

I878 next:next 

1888 return 

18984 rem Monate 3.Quartal KRRKFRRRE 
11885 scenelr 

1118 color 1,6,9%:char 1,2@-inttlent 
mos)%.5),1,m0®% 

1128 fort=itolen (mo$) 

1138 char 1,2@-int(len(mo$)%.5) -1+t 
2; np“ 

1148 next 

11isg itfmos="januar "ormo$="maerz"orm 
o$="mai"ormos=" juli "ormose"august"t 
hentage=32 

1189 itmos="oktober "oarmo$="dezember 
"thentage=32 

1178 ifmo$="april"ormo$="juni"ormo$ 
e"september "ormo$="november"thentag 
e=31 

1184 ifmo$="februar"thentage=2?7 
119% char 1,9,1,str$(iquartal)+". gqu 
artal" 

1288 tort=22totage:color 1,6,4:908u 
b1239: g90osub135228 

i218 chari1,®, (t-20)%2,woß+strs(t-1i) 
ı$or s=5t038:chari,s, (t-28)%2,ro@+" 
. "+ras 

1228 iftesit-1,mo)<>"" then char 1, 
6, (t-2@)*2,testt-i,mo) 

1238 nextinext 

1248 return 


1250 rem feiertagsentscheidung X 3® 
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1252 restore1289+1@%mo 

1278 tor vv=eitoß:readx: ifx=t-ithene 
olori1,3,94:return 

1288 nextireturn 

1298 data 1,5,6,12,19,26,28,8 

1398 data 2,9,16,23,2,8,2,8 

1318 data 2,9,16,23,28,38,31,2 

1328 data 6,13,28,27,82,2,8,8 

1338 data 1,4,8,11,18,19,25, 29 

1348 data 1,8,15,17,22,29,2,8 

1358 data 6,13,28,27,28,8,2,8 

136% data 3,8,18,13,17,24,31,8 

1378 data 7,14,21,28,2,8,2,8 

1389 data 5,12,19,26,2,8,9,8 

1399 data 1,2,9,16,19,23,39,8 

1498 data 7,194,21,23,26,28,8,8 

i41@ rem Notiz - Speichern KH % 
1428 scnelr:open 1,1,1 

1439 for ce=sito31:Fforcc=itol2 

14498 if testlc,cc)f>""then print#l,c 
s’,"jcc}","Ite®ic,ce) 

1459 next:inext:print#1,81", 
a9®: closel:return 

1489 rem Notiz - Lesen PRREREDEEEREN 
1478 senelr:open 1,1,% 

1488 do 

1498 input#i,c,cc,teßic,cc) 

152@ loopuntile=sfandce=d 

15183 close l:return 

1528 rem wochentagsentscheidung %%* 
1532 ifmo=4dandqu=3ormo=?andgu=sormo 
=BSandgqu=s2ormao=9andgusiormo=si2Zandgus 
ithenwe=1 

15489 ifmo=landqu=3ormo=2andqu=s2ormo 
=3andau=Zormo=dandqu=siormo=?andqu=i 
thenwe=2 

1558 i#mo=1@andqu=3ormo=ilandgqu=2th 
enwe=2 

1549 ifmo=slandqu=siormo=$andgu=3ormo 
=sandqu=2ormo=sißandqu=sithenwe=3 
1578 ifmo=Sandqu= iormo=sBandqu=3ormo 
sPandqu=s2ormosi2andqu=s2thenwe=d 
1588 ifmo=2andqu=3ormo=3andqu=3ormo 
=4andqus2ormo=?andqusZormo=sSandqu=si 
thenwe=3 

1599 ifmo=silandqu=äthenwe=S 

169% ifmo=slandqu=e2ormoe2Zandqu=siormo 
=3andqu=lormomsandqu=Sormo=1Bandqu= 
Zthenwe=sä 

1818 ifmo=slilandqu=sithenwe=s 

16828 ifmo=3andqu=2ormo=dandqusiormo 
=Fandqu=s3ormo=si2andqu=3thenwe=? 
16839 zn=1718+wetid 
1848 ifwose"so"then 
16859 ifwoß="mo"then 
154% ifwoß="di"’then 
1878 ifwoß="mi"then 
1882 ifwoß="do"then 
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"05", ”. 


zn=1724 
zn=1?738 
zn=1748 
zn=1758 
znsi 76 


1678 
1729 
1718 
1728 
1738 
1748 
1759 
1768 
1778 
1788 


ifwos="fr"then zn=1778 
ifwog=e"sa’then zn=1788 

restore zn:iread wo$ireturn 
data "mo" 

data "di". 

data "mi" 

data "do" 

data "fr" 

data "sa" 

data "so" 

179% rem Notiz-Gesamtuebersicht #%%* 
189424 senelr:char 1,5,1,"notiz gesam 
tuebersicht":print:print 

18189 forcc=itoil2: fore=itosi 

1828 ifzv=ißöthenchari,34,24,r0o$+"sp 
ace"+ras: poke239, d: getkeyaß: zu=d:sc 
nelrsprint 

1839 if teste,cc)<f>""thenprinte;"." 
see)". 5 "jteslce,cc):zv=zv#l 

1849 nextinext:ichar 1,394, 24,ro$+"sp 
sce"+ras: poke239, d:getkey aß: return 
185% rem Programm - Erklaerungen %* 
186589 scneir 

187@ char 1,8,1," 
en :*" 
1888 
nate 
1898 
19798 
18" 
1918 
-20" 
1928 char 1,13,11,"3.gquartal=stage 2 
1-31/38/28,* 

1938 char 1,1,13,"- "icolor 1,3,9c€ 
har 1,3,13,rb8+" "+r2a6 
1949 eolor i,l:char 1,11,13,": 
gezeichnet werden" 


programmerklaerung 
char die mo 
sind 
char 
char 


1,1,3,"- qartal : 
in 3 quar-" 

1,13,5, "tale eingeteilt:" 
i 1 13, 7: ”. ® quartal=tage i- 


ehar 1,13,9,"2.quartal=tage ii 


rot 


.4958 char 1,13,15, "alle feier- und 


sonntage," 


1969 char 1,13,17, "sowie notizen, d 


'ie diese" 


1778 char 
1988 char 
1998 poke 


1,13,19, "tage betreffen." 
1,34, 24,r0$+"space"+ra$ 

239,9: getkey a$:scnelr 

28288 char 1,1,2,"- fehler ":char 1, 
19,2,": falls im programm irgend-" 

2218 char i1,12,9,"ein unverstaendli 

cher fehler" 

2828 char 1,12,6, "auftreten sollte, 
zeile 379" 

223% char 1,12,8, "loeschen, 
rt werden" 

29849 char 1,12,1@, "auch syntax erro 
rs mit einem" 

2252 char 1,12,12,"ruecksprung ins 

menue unter-" 

ZA6R char 1,12, 14, "drueckt, und das 


denn do 


SERVICE 


programm" 


2873 char 1,12,16,"normal durchlauf 


en lassen -" 


28583 char 1,12,18,"sofort wird der 


auf-" 
41,12,28, 


#ehler 
223723 char 
2128 char 
2112 poke 
2128 char 
vergessen ! 
2139 char 
es bis" 

2148 char 
pelpunkt." 
2138 
zi16g 


"gedeckt." 
1,34,24,r0o®+"space"+ras 
239, d:getkey aßiscnelr 

1,1,2,"- eingabe ; 


nicht 


1,13,9,"’input’ nimmt all 
1,193,6, "auf komma und dop 


char 1,34, 24,roß@+"space"+ra® 
poke 239,2: getkey aß:ireturn 


2178 rem Kalender 1986 ===zann2223,5 
Zzi88 rem A4ß6?7i Bytes Memory zes 
2198 rem 20929299 Bytes Program ze= 
2200 rem AOOA2AR Bytes Variables === 
2218 rem A9RaQad Bytes Arrays zse= 
2224 rem AQAQAQd Bytes Strings z== 
2238 rem AR0998 Bytes Free (l) === 
2248 rem SESSSSESSERSSESESEESSZEESZESS 


Fortsetzung von Seite 110 


Durch “Restore X“ wird 
der Lesezeiger auf den 


Computer dann beim Da- 
teneinlesen “gesagt“, daß 
er aus der Do-Loop-Schlei- 
fe herausgehen soll. 

Zeile 1520-1780: 

Die IF-Abfragen finden 
heraus, mit welchem Wo- 
chentag der jeweilige Mo- 
nat beginnt, und mit den 
Zeilen 1630-1780 wird 
dann einfach durchge- 


zählt. 

Zeile 1820: 

Wenn in der Notizgesamt- 
übersicht 10 Notizen aus- 
gedruckt sind, wartet das 
Programm auf einen Ta- 
stendruck zur Fortsetzung. 
Zeile 1850-ENDE: 

Dieses Programmteil ist nur 
für die allgemeine Erklä- 
rung des Programms und 
zur Lösung von Schwierig- 
keiten da. Hat man näm- 
lich einen Fehler ge- 
macht, klärt einen der 
Punkt ““Fehler‘ auf, daß 


dieser durch “Trap“ nicht 
zum Vorschein kommt, 
sondern das Programm ein- 
fach zum Menü zurück- 
springt. 
Falls Sie diesen Programm- 
teil trotzdem für überflüs- 
sig halten, müssen Sie fol- 
gendes tun: 
1. Zeile 380 löschen 
2. In Zeile 410 statt 
“IF NO>8“ “IF NO>7“ 
ausbessern. 
3. In Zeile 420 die letzte 
anzuspringende Zeilennum- 
mer und das Komma da- 
vor löschen. 
4. Zeile 1850 bis 2160 
löschen. 
Dann funktioniert alles oh- 
ne Programmabschnitt 
“Erklärungen“. 
Stringliste: 
RO$ = CHR$(18)= 

Revers On 
RA$= CHR$(146)= 

Revers Off 


ES$ = CHR$(27)=Escape 
Q =CHR@1)=Q 


Anmerkung: 
ESC+Q$ löschen die Zeile 
ab dem Cursor. 

Martin Purucker 


TIPS & TRICKS P/4 


Der ‘Plus 4‘ ist ein bewun- 
dernswertes und begei- 
sterndes Gerät und für 
alle ernsthaften Anwen- 
der das Beste, was zu 
empfehlen ist (Gegen- 
satz: Seitenlange Pro- 
gramme zu Hause aus- 
wendig einpauken,um im 
Warenhaus den Zuschau- 
ern etliche bunt® Kreise 
auf den Bildschirm zu 
machen — gibt es etwas 
Dümmeres? Kleine Männ- 
chen umherhüpfen zu 


lassen — ist das im Sinne 
der Erfinder?). 

Gerade die Interessengrup- 
pen, für die der Hersteller 
dieses Gerät gemacht hat, 
wissen leider nichts von 
ihm, da sie — zwar inter- 
essiert, doch zurückhal- 
tend — in dem noch herr- 
schenden Dschungeldun- 
kel nicht klar sehen und 
eine Werbung des Herstel- 
lers fast völlig fehlt. 
Eines der im Plus 4 inte- 
grierten und im Anlei- 
tungsbuch bestens erklär- 
ten Programme ist die 
sog. Dateiverwaltung. 
Hierin gibt es den ‘RV*- 
Befehl, um die Dateien 
schnell durchlaufen zu 
lassen. ‘Schnell‘ ist hier 
fast zu schnell, während 
der zugehörige Stopp- 
befehl recht langweilig 
reagiert. Es gibt eine ein- 
fache Abhilfe mit dem 
‘Search‘-Befehl, der üb- 
licherweise mit der Ein- 
gabe eines Suchbegriffes 


verbunden ist. In diesem 
Falle wird das Eingeben 
eines Suchbegriffes unter- 
lassen und statt dessen 
ein zweites “Return“ ge- 
drückt. Das bewirkt, daß 
Nr. 1 der unsortierten 
oder einer sortierten Da- 
tei auf dem Bildschirm 
erscheint. Gleichzeitig 
fragt der C.: “Yes/No?‘ — 
bei “Yes‘ kommt Nr. 2 
der Datei. So. kann die 
ganze Datei-Diskette ab- 
gefragt werden — so 


schnell oder so langsam, 
wie jeweils “Yes‘ ge- 
drückt wird. 

Das Anleitungsbuch gibt 
weiterhin keine Auskunft 
über den Fall, daß ein 
einziger Brief, d.h. eine 
einzige Adresse aus der 
Dateiverwaltung, verwen- 
det bzw. gedruckt werden 
soll: Es wird vor der An- 
gabe ‘tf;:rc* die RC-Nr. 
der zu verwendenden 
Adresse eingetippt, wor- 
aufhin der Druckvorgang 
bei Textende endet, da 

ja kein ‘eof‘ eingegeben 
wurde. Andernfalls muß 
rechtzeitig ‘Run/Stop‘ be- 
tätigt werden. 

Schließlich ist noch zu 
erwähnen, daß der Cursor 
mit ‘Shift‘ und ‘=* in Spal- 
te 77 gebracht werden 
kann. 

Ein Computer für einen 
rationalen Zweck ist we- 
sentlich unterhaltsamer 
als einer nur zur Unter- 
haltung! Felmui Kopplin 
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SO GRÜNDEN 
SIE EINEN 


COMPUTER-CLUB 


Mit wachsender Verbreitung der Computer steigt auch die Zahl der An- 
wender, die ihr Hobby nicht nur im dunklen Kämmerlein betreiben wollen, 
sondern sich mit Gleichgesinnten treffen und Erfahrungen, Meinungen 
und Tricks austauschen wollen. Daß dabei fast immer eine Clubgründung 
erfolgt, liegt wohl in der Natur der Deutschen (ein geflügelter Satz lautet 
nicht umsonst: Wo zwei Deutsche mit gleichen Interessen zusammen- 


treffen, gründen sie einen Verein ...). 


Die Redaktion erhält immer 
mehr Zuschriften von Usern, die 
Tips und Anregungen zu einer 
Clubgründung haben wollen. Stell- 
vertretend für alle haben wir hier 
den Brief eines Lesers abgedruckt. 
„Wir haben hier, meines Wissens, 
keinen Verein oder Club, der sich 
mit Computern befaßt. Das möchte 
ich ändern. 

Es stellen sich jedoch einige Fra- 
gen, die ich unmöglich alleine be- 
antworten kann. Ich bitte deshalb 
um Ihre Hilfe. 

1. Was muß ich berücksichtigen? 
2.Was darf ich tun, ohne mit dem 
Gesetz in Konflikt zu geraten? 
3.Woher bekomme ich Informa- 

tionen? : 

4. Wo finde ich Ansprechpartner? 
5. Was hilft mir bei Startschwierig- 
keiten?“ 
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ZU FRAGE 1: 


Generell muß man sagen, daß es 
kein Patentrezept für eine erfolg- 
reiche Clubgründung gibt. Man 
kann unmöglich davon ausgehen, 
daß zehn Leute mit dem gleichen 
Hobby auch den gleichen Charakter 
haben. Der Mensch ist immer noch 
der größte Unsicherheitsfaktor. Be- 
rücksichtigen müssen Sie vor allem, 
daß Sie sich nicht mit jedem Com- 
puter beschäftigen können. Sie soll- 
ten sich schon auf einen oder zwei 
Rechner spezialisieren. Sagen wir, 
als Hauptobjekt ein Commodore 16 
und nebenbei noch den Atari 520 
ST oder ein MSX-Modell. Zu viele 
Computer lassen ein effektives Ar- 
beiten nicht zu. Natürlich soll das 
auf keinen Fall heißen, daß Be- 
sitzer anderer Computer nicht Mit- 
glied werden dürfen. 

Weiterhin sollten Sie eine Ein- 
tragung ins Vereinsregister vor- 
nehmen und .die Gemeinnützig- 
keit beantragen. 

Letzteres hat den Vorteil, daß Sie 
von der Stadt Räumlichkeiten und 
‚Geldmittel (soweit vorhanden!!!) 
erhalten können, die Ihnen als 
„lose“ Vereinigung nicht zustehen. 

Aber Vorsicht: Sie dürfen keinen 
Firmennamen im Titel führen. Die- 
ses Problem machte z.B. dem C64- 
Anwender-Club München zu schaf- 
fen. Eine Gemeinnützigkeit wurde 
mit der Begründung verweigert, im 
Titel würde Werbung für einen 
Computer gemacht. Der Club zieht 
jetzt die Konsequenzen und wird 
sich erstens demnächst umbenen- 
nen und zweitens für andere Com- 
puter offener werden. 


Wenn die „richtige Crew‘ dahintersteht, 
kann ein Computer-Club sehr aktiv wer- 
den. Hier etwa die Clubzeitschrift des 
64er-Clubs München, die jedes der Mit- 
glieder selbstverständlich kostenlos erhält. 
Darüber hinaus aber wird diese Club- 
zeitung sogar auf Münchener Bahnhöfen 
und in bestimmten Computershops 
verkauft! Mit den Erlösen aus dem 
Verkauf und den Anzeigen finanziert der 
Club diese Zeitschrift. 


ZU FRAGE 2: 


Zäumen wir das Pferd einmal von 
hinten auf: Was dürfen Sie nicht 
tun? Am wichtigsten und deshalb 
zuerst: keine geschützten Program- 
me kopieren, Kopien verkaufen, 
tauschen und in einer Programm- 
bibliothek führen. Letzteres gilt 
nicht für Programme, die von Soft- 
warefirmen offiziell und zur Infor- 
mation dem Club geschenkt worden 
sind. 


SERVICE 


Führen Sie Sammelbestellungen 
durch, müssen Sie mit dem Umsatz 
unter einer bestimmten Grenze 
bleiben, die sie am besten vom ört- 
lichen Finanzamt erfragen. Über- 
steigen Ihre Geschäfte diesen Betrag, 
werden Sie gegenüber dem Finanz- 
amt anzeigepflichtig, müssen Buch 
führen und sogar Umsatzsteuer zah- 
len. 

Das sind die wichtigsten Ein- 
schränkungen, die Sie beachten 
müssen. Nicht verboten ist, eigene 
Software zu entwickeln und zu ver- 
kaufen, Schulungen durchzuführen, 
Clubtreffen zu veranstalten etc. Sie 
werden sehen, daß zwanzig Leute 
auch zwanzig unterschiedliche 
Ideen haben, die Sie verwerten kön- 
nen. 


ZU FRAGE 3: 


Sie sprechen da ein heikles The- 
ma an, geben doch manche Her- 
steller gerade soviel Auskunft wie 
eine Betonmauer, nämlich keine. 
Dabei hat jede Firma ihre(n) Club- 
beauftragte(n), die (der) gerade 
dann auf Geschäftsreise ist, wenn 
man sie (ihn) dringendst braucht. 
Allerdings ändert sich diese Situa- 
tion langsam, und dazu haben die 
Clubs einen guten Teil beigetragen. 

Wenn Sie also Informationen 
haben wollen, wenden Sie sich an 
die entsprechende Person und blei- 
ben Sie um Gottes Willen hart- 
näckig. Übrigens haben die meisten 
Hersteller eine sog. Hot-Line, unter 
der immer jemand zu erreichen ist. 

Informationen allgemeiner Art 
erhalten Sie natürlich aus den diver- 
sen Fachzeitschriften. Natürlich 
können Sie nicht alle abonnieren, 
die für „Ihre“ Computer wichtig- 
sten sollten Sie aber führen. Weiter- 
hin ist es von Vorteil, sich einen 
Fachhändler zu suchen, über den 
Sie alle Bestellungen zu günstigen 
Konditionen (sprich Rabatte, Frei- 
exemplare) abwickeln können. Die- 
ser kann Ihnen sicher das ein oder 
andere Datenblatt und Schaltpläne 
besorgen. 


ZU FRAGE 4: 


Wie oben schon erwähnt, finden 
Sie Ansprechpartner bei den Her- 
stellern. Sehr unüblich, aber sehr 
effizient, ist der Weg über einen 
Schwesterclub. Sie suchen sich 


einen Club mit ähnlichen Interes- 
sen ‘und tauschen Informationen, 
Ideen und Anregungen aus. Dazu 
ist ein Treffen nicht zwingend not- 
wendig, das Telefon oder die Club- 
zeitung tun’s auch. 


ZU FRAGES: 


Probleme und Startschwierigkei- 
ten wird es immer geben, auch hier 
gibt es keine Regeln, nach denen 
man vorgehen muß. Deshalb ein 
paar wichtige Tips: 

Hüten Sie sich vor einem: Seien 
Sie kein Hardware-Bastler, Starpro- 
grammierer, Finanzgenie und Club- 
vorsitzender in Personalunion. Alles 
selbst machen zu wollen, geht auf 
jeden Fall schief. Splitten Sie den 
Club in sinnvolle Teilbereiche auf, 
etwa in die Bereiche Hardware, 
Software, Clubzeitung und Öffent- 
lichkeitsarbeit. Auf der ersten Club- 
sitzung werden dann geeignete 
Leute für diese Bereiche bestimmt 
oder gewählt. Sie als Vorsitzender 
kontrollieren dann nur noch die 
Teilbereiche. 

Meinen Sie nicht, Sie hätten den 
Erfolg gepachtet, mit Tiefschlägen 
müssen Sie rechnen. 

Und ganz wichtig: Seien Sie mit 
ganzem Herzen bei der Sache. Ent- 
weder Sie führen konsequent den 
Club oder arbeiten dementspre- 
chend dafür, oder Ihr „Clubschiff“ 
wird unweigerlich an der nächsten 
Klippe zerschellen. 

Wenn Sie das alles beherzigen, 
kann eigentlich nichts mehr schief- 
gehen, es sei denn ... 

Es sei denn, Sie bleiben ein ‚Ein- 
Mann-Club“, weil zu wenig Leute 
über Ihre Idee informiert sind. Des- 
halb noch ein kleiner Rat: Machen 
Sie auf sich aufmerksam. 

Sie brauchen ja nicht gerade 
einen Zeppelin zu mieten, wie das 
einige Firmen tun (Fuji, Ashton 
Tate), ein kurzer Anruf bei Ihrer 
Zeitung kann da auch genügen. 
Oder Sie lassen Flugblätter drucken, 
die dann in Schulen (vorher Geneh- 
migung beim Rektor holen!!!) und 
Computershops verteilt werden. 
Aber da fällt Ihnen sicher etwas 
ein. 
Natürlich steht auch die COM- 
MODORE-WELT mit Rat und Tat 
(soweit möglich) hilfreich zur Seite. 
Wenden Sie sich einfach an die 
Redaktion. 
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Typen heraus, die mehr kosten, 
als Sie bereit oder fähig sind, dafür 
auszugeben. 

te. Die für den C16 geschriebene 
Haben Sie nun zum Beispiel eben 
Sie einen Drucker mit Commodore- 


In der zweiten Auswahl sollten Sie 
‚sich die Fräge stellen, ob Ihr Druk- 
ker einen bestimmten Standard 
erfüllen soll. 
Druckersoftware ist entweder für 
einen Original Commodore Drucker 
Neben der Floppy ist der Drucker das wichtigste Werkzeug für einen en er air sich Sehen 
Computer. COMMODORE WELT sagt Ihnen, was Sie vor dem Kauf BUSH rn 
h ’ i ' s oder Epson-Standard. 
Drucker gibt es mittlerweile schon Selbstverständlich muß diese Frage Ansonsten sollte Ihr neuer Drucker 


Gängige Standards sind zum Bei- 
RICHTIGEN 
(MPS-Serie) oder aber für einen 
Drucker mit Epson-Standard be- 
stimmt; ebenso verhält es sich beim 
Apple Ile. 
2 ähnlichen Rechner in nächster Zu- 
eines Druckers beachten sollten. kunft kaufen wollen, so brauchen 


wie Sand am Meer. Ob für den im Endeffekt jeder einzelne für sowohl den Epson- als auch den 
Heimgebrauch, zum Ausdruck für sich selbst entscheiden. Und gerade IBM-Standard beherrschen. 
kleinere Programme und Listen . im Fall eines Druckerkaufes sollte Ein weiteres Auswahlkriterium soll- 
oder aber für den Profi-Bereich: man sich für diese Entscheidung te die Grafikfähigkeit des Druckers 
Für jede Nutzung gibt es mindestens besonders viel Zeit nehmen. sein. Ist er grafikfähig, so kann man 
ein halbes Dutzend Anbieter mit Das erste, was man tun sollte, ist, mit diesem Gerät sowohl normalen 
verschiedenen Leistungen und ver- in den eigenen Geldbeutel zu Text als auch, mit einem Zusatz- 
schiedenen Preisen. schauen, um sich damit klarzuwer- programm, hochaufgelöste Grafik- 


„Welche Marke und welchen Typ den, welche Summe überhaupt Es gibt sie wie Sand am Meer: Drucker. 
nehme ich, was ist für mich am ausgegeben werden kann. Hier allein das Angebot eines einzigen 
Besten?“ Diese oder ähnliche Fra- Jetzt erst sollte man sich informie- Unternehmens: Star. 

gen stellen sich jedem Computer- ren, welche Drucker für welchen 

Benutzer, der sich einen Drucker Preis angeboten.werden. 

kaufen will. In der ersten Auswahl fallen alle 
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bilder ausdrucken. (Die meisten 
modernen Drucker sind grafikfähig.) 
Ein weiterer, nicht minder wichtiger 
Punkt ist die Art der Schnittstelle, 
die der-Printer besitzt. 
Schnittstellen gibt es allgemein nur 
zwei verschiedene: Die serielle und 
die parallele Schnittstelle. 

Die meisten Drucker im Home- und 
Personalcomputerbereich besitzen 
parallele Schnittstellen, eine Ausnah- 
me bilden die Commodore. : 

Will man einen Drucker mit paralle-- 
ler Schnittstelle an den C16/P4 an- 
schließen, so benötigt man hierfür 
noch eine besondere Schnittstelle, 
ein Druckerinterface. 

Bei manchen Angeboten ist diese 
Karte schon dabei, bitte beachten 
Sie dies!!! Ansonsten sind Mehraus- 
gaben bis zu 250 und mehr Mark 
möglich! 

Hat man diesen wichtigen Punkt 
auch beachtet, kann man endlich 
dazu übergehen, den Drucker nach 
seinen eigenen Leistungen zu testen. 
Beginnen wir mit: 

a) Einzelblatteinzug: 

inzelblatteinzug bedeutet nichts 

anderes, als daß Sie mit diesem 
Drucker ganz normales Papier (meist 
bis DIN A4-Format) benutzen kön- 
nen. Ein nicht zu unterschätzender 
Vorteil. 

b) Traktor bzw. Endlosblattver- 
arbeitung: 

Dieser Zusatz bedeutet, daß der 
„Drucker Endlospapier mit Lochrand 
verarbeiten kann. 

Auch diese Eigenschaft ist von großer 
Bedeutung. 

Selbstverständlich gibt es viele Druk- 
ker, die sowohl den Punkt (a) als 
auch den Punkt (b) erfüllen; sie 

sind den anderen Geräten vorzu- 
ziehen. 

c) Druckgeschwindigkeit: 

ie Druckgeschwindigkeit wird in 

Z/sec. = Zeichen pro Sekunde ange- 
geben. Hat ein Drucker die Angabe 
180 Z/sec. so bedeutet dies, daß 
man von einem Text mit 80 Zei- 
chen pro Zeile jede Sekunde 180 
Zeichen abdruckt. 

Da die meisten Texte jedoch kürze- 
re Zeilen haben, ist dieser Wert 

nicht hundertprozentig verbindlich, 
sondern zu hoch. 

Dennoch ist ein Drucker mit einer 
Geschwindigkeit von 180 Z/sec. 

um einiges schneller als ein Drucker 
mit nur 120 Z/sec. 

d) NLOQ=near letter quality= 
Schönschriftmodus: 

Ein durchschnittlicher, guter Druk- 
ker schreibt normalerweise mit ei- 
ner 8x9 Punkte Matrix. 

Schlechtere Drucker, wie zum Bei- 
spiel der Commodore MPS 801, ha- 


- ben nur eine 5x7 Punkte Darstel- 


lung. 
Die Zeichen eines solchen Druckers 
sind weit schlechter zu lesen, also 
unsauberer, während die 8x9 Punk- 
te-Drucker weitaus schönere Druck- 
bilder erzeugen. 
Achten Sie also vor dem Kauf auf 
die Druckmatrix Ihres Druckers!!! 
Einige Drucker haben nun einen 
Extra-Modus, NLQ genannt. 
Dieser Modus simuliert eine 18x24 
Punkte Matrix; der Zeichenaus- 
druck in diesem Modus ist, gegen- 
über dem Normalmodus, umwer- 
fend; es ist kaum noch ein Unter- 
schied zu einer Schreibmaschine 
feststellbar. 
Dafür ist die Druckgeschwindig- 
keit auch erheblich verringert, was 
man aber für besonders wichtige 
Briefe in Kauf nehmen sollte. 
Wichtig. ist auf jeden Fall, daß der 
Drucker die Schönschreibmöglich- 
keit besitzt. 
e) Druckerpuffer: 

in Druckerpuffer ist ein Speicher, 
in dem Daten, die vom Computer 
kommen und die ausgedruckt wer- 
den sollen, zwischengespeichert 
= gepuffert werden. 


Moderne Druk- 
ker ändern ihre 
Schriften heute 
per Einschub- 
Kassette, Dip- 
schalter umstel- 
len ist nicht 
mehr „in“. - 


Hat man zum Beispiel ein 3seitiges 
Listing auszudrucken, so nimmt 
der Puffer, je nach Größe, alle 3 
Seiten auf und man kann, während 
der Drucker arbeitet, schon am 
Computer weiterarbeiten. 

Bei kleineren Ausdrucken entsteht 
daher keine ‚‚Wartezeit‘, bis der 
Drucker alles gedruckt hat und sich 
der Computer erst dann wieder 
meldet. 

Besonders im NLQ-Druck lernt 
man einen großen Druckerpuffer 
schätzen, da der Drucker in diesem 
Modus, wie erwähnt, besonders 


langsam und die Wartezeit dement- 

sprechend auch länger ist. 

Ein vernünftiger Druckerpuffer 

faßt mindestens 5 KBytes, mehr 

Speicher ist natürlich besser, aber 

auch teurer. 

f) Zeichenentwicklung möglich: 
inige Druckerfabrikate bieten dem 

Benutzer noch einen ganz besonde- 

ren Leckerbissen. 

Auf ihnen kann man eigene Zeichen 

entwickeln und dann abspeichern. 

o wie man auf dem C 16 den Zei- 
chensatz ziemlich leicht ändern 
kann, so ist dies auch bei solchen 
Druckern möglich. 

Zwar wird diese Eigenschaft fast 
nie gebraucht, sie ist aber dennoch 
eine nette und für manche bestimmt 
nicht unnütze Spielerei. 

Anzahl der Zeichensätze: 

in guter Drucker sollte den ameri- 
kanischen ASCII-Zeichencode so- 
wie den.deutschen Zeichensatz mit 
Umlauten (äö6üß) besitzen. 

Viele andere Drucker haben überdies 
noch französisch, norwegisch, prie- 
chisch und andere Zeichencodes fest 
integriert. 

h) Farbband: 

Das Farbband stellt für vieldrucken- 


de Computerbesitzer eine stetige 
Ausgabe dar. 
Deshalb sollte man sich vor dem 
Kauf des Druckers nach den Preisen 
für die Farbbänder erkundigen. _ 
Es ist ebenfalls gut zu wissen, wie- 
viel Zeichen lang ein Farbband hält, 
d.h. nach wie vielen Druckseiten die 
Druckintensität nachläßt. 
(Manche Farbbänder haben einen 
Nachfülltank, durch den man man 
die Farbbandkosten erheblich sen- 
ken kann. Bedenken Sie also auch 
dies vor dem Kauf!) 

Ph. Bertschg 
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Mittlerweile findet man 

sie in jeder Computer- 
zeitschrift, teilweise so- 
gar in technischen Maga- 
zinen, die mit Computer 
selbst eigentlich gar nichts 
zu tun haben. 
Die Rede ist von den An- 
zeigen des Computerver- 
sandhandels; von Firmen, 
die sich darauf speziali- | 
siert haben, ihre Produk- i 
te über den Postversand- 
weg gegen Vorkasse oder 
per Nachnahme zu ver- 
treiben. Oftmals haben j 
sie noch nicht einmal ein 
Ladenlokal; sie bestehen 
nur aus einem Lager, ei- 
nem Telefon und einem 
Briefkasten. 

Dennoch sind sie für ande- 
G nv > E= re Computerhändler eine 


äußerst ernst zu nehmen- 


de Konkurrenz. 
NDEI Der Grund hierfür liegt in 
den zum Teil enorm gün- 
En nen, % : 
= F : anche Versandbetriebe 
Die Angebote des Versandhandels sind preislich unterbieten den empfoh- 
» . enen Verkaufspreis um 
oft verlockend. Warum ist diese Handelssparte bis zu 30 (dreißig) Pro- 
5 u: . = D zent!!! 
meist so preisgünstig und worauf sollten Sie beim sei einem Drucker, der | 
= normalerweise 
Kauf im Versandhandel achten? kosten würde, macht das 
x z einen Preisunterschied 
von 600 DM oder mit an- 
deren Worten einen End- j 
preis von nur noch 1200 
DM aus! 
Wen wundert es da, wenn 
so mancher kleine Com- 
puterladen ca. 2 — 3 Jah- 
re nach seiner Eröffnung 
wieder schließt, wird doch 
im Versandhandel ein 
Preiskampf betrieben, der 
schlichtweg als ruinös 
zu bezeichnen ist. 
Unlängst ist es sogar vor- 
gekommen, daß der Ein- 
kaufspreis eines Händlers 
direkt vom Werk ab höher 
lag, als der Endpreis für 
den „normalen“ Endver- 
braucher selbst! 
Wie aber kommt es nun 
dazu, daß gerade im Ver- 
sandhandel die Preise der- 
art herabgesetzt sind? 
N an . Als ersten Grund für diese 
w Niedrigpreise kann man 
hier die gegenüber dem 
Computerfachhandel 
schlechte Beratung anfüh- 
Anzeigen, wie sie in nahezu jedem Computerheft zu finden sind - ren. Geht man in einen Com- 
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puterladen, so kann man 
sich dort beraten lassen, 
die dort vorhandenen Vor- 
führgeräte testen; man hat 
sie eben vor sich stehen. 
Im Gegensatz zum Ver- 
sand sieht man das Pro- 
dukt, das man kaufen will, 
direkt vor sich, man hat 
den Verkäufer gleich in 
nächster Nähe zur Hand, 
und kann ihm, bei etwa- 
igen Defekten am Gerät 
während der Garantiezeit, 
gewaltig „auf den Schlips 
treten“. (Was leider oft 
genug nötig ist!!!) 

Daß in solchen Läden der 
Preis gegenüber dem des 
im Versandhandels höher 
sein muß ist logisch, be- 
denkt man, welche Kapi- 
talwerte in Form von Vor- 
führgeräten in einen Com- 
puterladen zinslos ge- 
steckt werden müssen. 
Überdies muß in einem 
Laden immer mindestens 
eine Bedienung sein, wo- 
raus folgt, daß mindestens 
ein Angestellter zu bezah- 
len ist, egal wie das Ge- 
schäft läuft — und das 
kann teuer sein. 

Im Gegensatz hierzu benö- 
tigt der Versandhandel 
keine Vorführgeräte, kei- 
ne Vorführräume, kein 
extra geschultes (und teu- 
res) Vorführpersonal. 
Sämtliche Beratungsstun- 
den entfallen, mit Ausnah- 
me von kurzen Tips am 
Telefon, gänzlich; der 
Zeitaufwand für den Ver- 
kauf ist alles in allem 
daher auch entsprechend 
gering. 

Doch dies ist nicht der 
einzige Vorteil des Ver- 
sandhandels gegenüber 
dem „normalen“ Fach- 
handel. 

So hat eine Computerfir- 
ma, die in einer Compu- 
terfachzeitschrift wirbt, 
die gesamte BRD, Öster- 
reich, Luxemburg und den 
deutschsprachigen Teil 
der Schweiz abgedeckt; 
das heißt: Die Kundschaft 
ist praktisch der gesamte 
deutschsprachige Raum 

in Europa. 

Die Versandfirmen sind 
nicht so sehr wie die Com- 
puterfachhandelsnieder- 
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lassungen von der Konjunk- geschwemmt, doch die 


tur an ihrem Ort abhängig. 
Ein Computerladen in 
Hamburg hat zwar in den 
Bewohnern des gesamten 
Hamburger Raumes und 
des Hamburger Umfeldes 
otentielle Kunden, doch 
ann er sich. damit nicht 
mit der Zahl des Versand- 
handels messen. 
Hieraus wächst der zweite 
große Vorteil: 
Durch die größere Anzahl 
an Kunden werden mehr 
Artikel verkauft. 
Mehr verkaufte Artikel be- 
deuten einen größeren Ge- 
winn, so daß man die Prei- 
se senken kann, um noch 
mehr Produkte zu ver- 
kaufen. 


So mancher 
Laden schließt 
schnell 


Verkauft man nun tatsäch- 
lich noch mehr Produkte, 
so erhält man durch die 
höheren Abnahmemengen 
bei den Herstellerfirmen 
größere Einkaufsnachläs- 
se und kann somit wieder 
größere Gewinne einstek- 
ken sowie eventuell wei- 
terhin den Preis senken. 
Diese Preissenkungspolitik, 
die dem Endverbraucher 
bisher anscheinend sehr 

zu Gute gekommen ist, 
führt zu immer größeren 
Verkaufsstückzahlen bei 
immer kleineren Gewin- 
nen je verkaufte Einheit. 
Bleiben dann einmal aus 
irgend einem Grund die ge- 
wohnten hohen Verkaufs- 
stückzahlen aus, kann der 
Betrieb leicht Pleite gehen, 
denn dann fehlen ja die 
nötigen Gewinne, um ent- 
standene Fixkosten zu 
decken. 

Unsicherheit über die Le- 
bensdauer eines Versand- 
betriebs ist ein genereller 
Minuspunkt gegenüber 
dem Ladenlokalhandel. 
Zwar sprießen Ladenloka- 
le im Bereich Computer- 
verkauf wie die Pilze bei 
lauwarmen schwülem 
Wetter aus dem Boden 
und es werden viele auch 
schon bei dem ersten grö- 
ßeren Regen wieder weg- 


Schließungsquote solcher 
Ladengeschäfte liegt im 
Vergleich mit der des Ver- 
sandhandels ungleich nied- 
riger, was eine höhere Si- 
cherheit vor Konkurs 
beim Fachhandel aufzeigt. 
Schließlich verliert man 
bei einem vollständigen 
Zusammenbruch.einer 
Firma oftmals sein Recht 
auf Garantie — Reperatur 
im Falle eines Defektes 
beziehungsweise besser 
gesagt: Meist ist es schwie- 
riger und kostspieliger auf 
der Reparatur eines Gerä- 
tes im Garantiefall zu be- 
stehen, wenn die Firma, 
bei der das Gerät gekauft 
wurde, mittlerweile Pleite 
gegangen ist, als wenn man 
‚die Reparaturkosten gleich 
privat, also zu eigenen 
Lasten, trägt. 

Allgemein scheint im 
Durchschnitt der Service 
des Versandhandels um ei- 
niges schlechter zu sein 

als der des Fachhandels. 
Natürlich, es gibt auch Ver- 
sandfirmen, die defekte 
Geräte während der Garan- 
tiezeit anstandslos um- 
tauschen. 


Versandladen: 
Oft kein 
Service 


Ebenso gibt es Fachhan- 
delsbetriebe, die für die 
Reparatur zum Beispiel ei- 
nes einzelnen Disketten- 
controllers über 4 Wochen 
benötigen!!!, obwohl der 
Fehler am Gerät nun wirk- 
lich in weniger als einer 
halben Stunde hätte gefun- 
den werden können. 

Doch das ist bei einem La- 
den vor Ort viel seltener, 
denn dort kann man seinem 
Begehren auch viel besser 
Luft machen als es zum 
Beispiel durch einen Mahn- 
brief oder Telefonanruf an 
eine Versandfirma möglich 
ist. 

Zusammenfassend kann 
ich betreffend des Thema 
Reparatur während der 
Garantiezeit sagen, daß 
der Versandhandel hierbei 
durchaus 2 — 3 Monate 


(1/4 Jahr!) benötigt, um 
ein defektes Teil zu repa- 
rieren oder auszutauschen. 
Wer mir das nicht glaubt, 
kann bei mir Belege anfor- 
dern, die meine Behaup- 
tung "selbstredend bewei- 
sen, denn ich habe mit &- 
ner dieser „Schlamper“ 
Versandfirmen meine eige- 
nen Erfahrungen gemacht. 


Beim 

Erstkauf 

besser zum 
Fachhandel 

Daher rate ich im allgemei- 


nen folgendes: 
Wenn Sie Anfänger sind, 


‚also von der Computerei 


noch nicht allzu viel wis- 
sen, sollten Sie Ihre Grund- 
gerätekonfiguration beim 
Fachhändler in nächster 
Nähe kaufen, denn dort 
sollten Sie zumindest bera- 
ten werden und Sie kön- 
nen hier auch mit deutlich 
kürzeren Wartezeiten rech- 
nen, falls Ihr Gerät einmal 
defekt sein sollte. 
Hat man sich allerdings 
schon mit EDV beschäftigt, 
und kennt man sich gut 
mit ihr aus, so kann eher 
empfohlen werden, das 
Gerät doch im Versandhan- 
del zu kaufen. 
Allerdings sollte der Preis- 
unterschied schon größer 
als 10 Prozent sein. 
Erweiterungen für das Ge- 
rät (z.B. Disketten) kön- 
nen ruhig über den Ver- 
sand erworben werden. 
Man erhält sie hier meist 
unschlagbar billig (wenn 
man das richtige Angebot 
gefunden hat) und die 
Ausfallquote liegt extrem 
niedrig. 
Überdies riskiert man bei 
Erweiterungen bzw. Zu- 
behör auch nicht allzu viel 
Geld, so daß man mit die- 
sem Kauf auch eine Ver- 
sandfirma z.B. auf Liefer- 
zeiten hin testen kann. 
Wir hoffen, daß wir mit 
diesen Tips dem einen 
oder anderen Leser gehol- 
fen haben, sich zu ent- 
scheiden und wünschen 
allen noch viel Spaß mit 
der EDV. Eike Knoll 
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WIEVIEL PASST 
EIGENTLICH AUF MEINE 


Goethe rief bekanntlich 
seinerzeit nach Licht, 
Commodore-User heute 
nach mehr Platz. Ausweg: 
Die Floppy-Disk mit 
ihrer für unsere Verhält- 
nisse riesigen Speicher- 
kapazität. Wieviel Platz 
ist denn aber nun wirk- 
lich auf dieser kleinen 
Schwabbelscheibe? 


„Auf jeden Fall zu wenig“, 
werden die meisten An- 
wender von Kleincompu- 
tern sagen, sofern sie mit 
Disketten arbeiten. Irgend- 
wann bringt ein Byte die 
Diskette buchstäblich 
zum Überlaufen, dies 
wird vom System sofort 
angezeigt. Die theoreti- 
sche Speicherkapazität 
von Disketten läßt sich 
leicht berechnen. 


Als Beispiel soll eine Disk 


—5.25”-2D dienen, wie 
sie für rund drei Viertel 
aller im Markt verbreite- 
ten Laufwerke dieser 
Diskettengröße verwen- 
det werden kann. ‘“2D“ 
signalisiert, daß es sich 
um eine zweiseitig ge- 
prüfte Disk mit doppel- 
ter Datendichte handelt. 
Am weitesten verbreitet 
ist das Datenformat mit 
39 Spuren und 16 Sekto- 
ren mit je 256 Bytes. 
Das muß erklärt werden: 
Das Datenformat gibt an, 
wie die Oberfläche abzu- 
legen und zuverlässig wie- 
derzufinden ist. Die Bytes 
werden in Datenspuren 
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DISK ? 


gespeichert. Diese sind 
konzentrische Kreise. Die 
Datenspuren werden in 
Sektoren unterteilt. Die 
Aufteilung einer Disk- 
Oberfläche in Sektoren 
erinnert bei bildlicher 
Darstellung an einen in 
Stücke geschnittenen 
Kuchen. 

Jetzt sind alle Faktoren 
erklärt, mit denen die 
Speicherkapazität be- 
rechnet werden kann. Bei 
der als Beispiel dienenden 
Disk enthält ein Sektor 
256 Bytes und jede der 
39 irn 16 Sektoren. 
Folglich kann eine komp- 


lette Spur 16x256=4096 
Bytes speichern. Multi- 
pliziert mit 39 Datenspu- 
ren pro Disk-Seite erge- 
ben sich 159 744 Bytes 
und bei einer zweiseitigen 
Diskette genau 319 488 
Bytes, das sind rund 320 
Kilobytes. 

Dieser Speicherraum läßt 
sich jedoch in der Praxis 
nicht vollständig nutzen. 
Bei den meisten Betriebs- 
systemen für Mikrocom- 
puter wird nämlich mit 
fester Satzlänge gearbeitet, 
d.h. jeder Datensatz wird 
mit so vielen Leerzeichen 
aufgefüllt, wie notwendig 


sind, um den Satz auf 
seine maximal mögliche 
Länge zu bringen. Des 
weiteren wird die gegebe- 
ne Kapazität dadurch ver- 
ringert, daß ein Vielfa- 
ches der Satzlänge fast 
nie gleich der Sektorlänge 
ist. Bei einer Satzlänge 
von z.B. 70 Zeichen wür- 
den in einen Sektor von 
256 Zeichen drei Sätze 
passen und die restlichen 
46 Zeichen je Sektor unge- 
nutzt bleiben. Eine 320- 
K-Diskette kann also 
schon nach 200 K-Bytes 
oder noch früher „über- 
laufen“. 


Spuren- und Sektorenlage bei 5.25” Diskette* 


Sektorerkennung 


Indexloch .. ia 


konzentrische 
uren 


„Sektor 16 


256 Bytes Datenfeld 


*Beispiel: Doppelte Datendichte,softsektoriert, 16 Sektoren, 
256 Bytes/Sektor, 39 Spuren. 


Zeichnung BASF 
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‚DATA BECKER Buchhits 


‚ZU Commodore €16 und Pilus/4 


Mit diesem Buch zu Ihrem C16 verfügen Sie über eine leichtverständliche Ein- 
führung in Handhabung, Einsatz und Programmierung des C16, die keinerlei Vor- 
kenntnisse voraussetzt. Themen: Bedienung von Tastatur und Editor, erster Befehl 
und erstes Programm, BASIC-Einführung mit Erstellung einer kompletten Adressen- 
verwaltung! Nur der richtige Einstieg garantiert den späteren Erfolg! 
STEIGER C16 für Einsteiger, 205 Seiten, DM 29,— 
FÜR EIN: 


Tips & Tricks 


| EDV | Zu og u. 

j Haben Sie einen C16/116 und kein Futter für ihn? Dann kann Ihnen mit diesem 

”| un N Buch geholfen werden. Aus dem Irhalt: Spiele, Malprogramm, Laufschrift, Textverar- 
Comm es für den I beitung, Dateiverwaltung, Vokabeltrainer, Text-Hardcopy, Merge, Shape-Editor, simu- 
@ er) | | Odore 16 Anwender \l lierter Direktmodus, der integrierte Monitor, Zeropage, Routinen des Betriebssystems 


und des BASIC-Interpreters. 
Dieses Buch gehört griffbereit neben Ihren Rechner. 


EIN DATA BECKER BUCH C16 Tips & Tricks, 201 Seiten, DM 29,— 


EIN DATA BECKER BUCH 


Klar und ausführlich werden.die Möglichkeiten der Grafikpro- 
grammierung auf den Rechnern C16/C 116/Plus/4 vorgestellt. 
Die Grafikbefehle des BASIC 3.5 werden mit vielen Beispielen 
verdeutlicht: 

Farb-, Multi-, Color- und Hi-Res-Modi, Befehle zur Steuerung- 
von Grafik und Shapes, 2D-/3D-Programmierung, CAD und 
Statistik. 

Mit diesem Buch lernen Sie Ihren Rechner von seiner stärk- 
sten Seite kennen. 

Das Grafikbuch zu C16/C116/Plus/4, ca. 300 Seiten, 

DM 29,-. Erscheint ca. Juli/August 


Machen Sie mehr aus Ihrem Rechner! Anhand vieler Programmbei- 
spiele führt der Autor in den Befehlssatz der Rechner C16/C116/ 
Plus/4 ein: Ein-/Ausgabe mit Input/Print, Rechnen mit Variablen, 
Stringverarbeitung, Verzweigung und Schleifen, Grafik- und Musik- 
programmierung, komplette Befehls-Übersicht. Für Einsteiger und 
Fortgeschrittene gleichermaßen interessant. 

Das BASIC-Buch zu C16/C116/Plus/4, ca. 250 Seiten, DM 29,— 


Programmierung in Maschinensprache - leichtgemacht. 

Der Befehlssatz des Prozessors, die Verwendung des TED-MON, die wich- 
tigsten Routinen des Betriebssystems. Auf diese Weise können Sie das 
Know-how, welches in Ihrem Betriebssystem steckt, in Ihre eigenen Pro- 
gramme integrieren. 

C16/C116/Plus/4 Maschinensprache, ca. 300 Seiten, DM 29,—. 
Erscheint ca. Juli/August 


Wer seinen Commodore Plus/4 richtig nutzen will, der kommt an diesem Ideenbuch 
nicht vorbei. Aus dem Inhalt: Was ist eine Textverarbeitung, welche Vorteile bietet 
sie, Installation der Plus 4-Software, Serienbriefe, Steuerzeichen, Peeks und Pokes, 
Balkengrafik, Funktionsplotter, Dateiverwaltung, Listing der Zero-Page (Systemspei- 
cher), u.v.m. Gehört zu jedem Plus/4! 

Effektiv & Kreativ mit dem Commodore Plus 4, 

244 Seiten, DM 49,— 


Commodore Plus/4 Tips & Tricks enthält eine hochkarätige Sammlung 
von Anregungen, Ideen und fertigen Lösungen zur Programmie- 
rung Ihres Plus/4: Anwenderprogramme aus den Bereichen 
Unterhaltung, Grafik, Text- und Dateiverwaltung. Viele Utilities 
wie Text-Hardcopy, REM-Killer, Mergen, Shape-Editor und 
Datumsberechnung. Die wichtigsten Zeropageadressen 
und Betriebssystemroutinen führen hin zur Pro- 
grammierung in Assembler. Eine echte Hilfe für alle 
ernsthaften Programmierer. 

Plus/4 Tips & Tricks, ca. 200 Seiten, DM 29,— 
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Merowingerstr. 30 - 4000 Düsseldorf - Tel. (0211) 310010 
FE er En: Er Ge 


EUER ART Es 


TEST 


ACE - Air Combat Simulator, 
dieser Name läßt den englischspre- 
chenden User schon aufhorchen. 
Von Cascade Games in England 
kommt ein Flugsimulator für den 
C 16, welcher nicht nur das bloße 
Fliegergefühl vermittelt, sondern 
auch noch Gelegenheit zu Luft- 
kämpfen gibt. Nun müßen die 
Plus/4 Besitzer nicht mehr: nei- 
disch zu den größeren Rechnern 
blicken, auch für sie gibt es ab 
jetzt perfekte Flugsimulation. 


Wer ACE auf Diskette erwirbt, 
wird erst einmal eine Überraschung 
erleben. Denn: Ein und dasselbe 
Programm läuft entweder auf dem 
C 64 oder Plus/4. Wie dies bewerk- 
stelligt wurde, ist Geheimnis von 
Cascade, es funktioniert jedenfalls. 
Über die Qualität englischer Spiele- 
software für Commodore Computer 
braucht wohl kaum noch ein Wort 
verloren zu werden, hier haben sich 
die Entwickler einmal mehr selbst 
übertroffen. ACE ist ein vollwerti- 
ger Flugsimulator, und es kann noch 
mehr. Hier wird noch zusätzlich die 
Möglichkeit gegeben, alle möglichen 
Kampfsituationen „hautnah“ 
mitzuerleben, nur wird es einem 
beileibe nicht so einfach gemacht 
wie bei herkömmlichen Ballerspie- 
len. 


PER JOYSTICK UND 
TASTATUR! 


Es gilt vorrangig, die diversesten 
feindlichen Gerätschaften, von Pan- 
zern über Kampfflugzeuge bis hin 
zu Schlachtschiffen, unschädlich zu 
machen. Hierzu kann der. Spieler 
zwischen verschiedensten Vorein- 
stelldaten wählen, um die für ihn 
beste Spielsituation zu erreichen. 
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Es kann z.B. die Flugzeit (Sommer, 
Winter, Nacht) ausgewählt werden 
ebenso kann der Spieler entschei- 
den, in welcher Art er seinen Ein- 
satz durchführen will, sei es ein 


’ 


reiner Trainingsflug, eine Luft- 
Luft-Konfrontation oder auch 
ein Luft-Wasser-Duell usw. Zuerst 
muß natürlich gestartet werden, 
was alleine schon für den Anfän- 
ger einige Schwierigkeiten mit sich 
bringen dürfte, sodann kann das 
Spiel beginnen. Absolut neu ist 
hierbei, daß die Flugzeugbesatzung 
auch aus zwei Spielern bestehen 


kann, welche sich per Tastatur und 
Joystick die Aufgaben teilen und sc 
noch optimaler agieren können. 
Es gilt, soviele Feinde wie möglich 
unschädlich zu machen, was sich 
diese natürlich nicht ohne weiteres 
gefallen lassen. So bedarf es mehre- 
rer Spieldurchläufe, um überhaupt 
zu treffen, ohne auf den sprich- 
wörtlichen Boden der Tatsachen zu- 
rückgeholt zu werden. 

Zur Steuerung des Flugzeuge: 
steht natürlich primär der Joystick 
zur Verfügung. Um die vielen Son- 
derfunktionen zu ermöglichen, mu£ 
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jedoch auch die Tastatur in das 
Spielgeschehen mit einbezogen wer- 
den. Diese wird beispielsweise be- 
nötigt, um die Bewaffnung auszu- 
wählen -(es stehen je nach Einsatz 
fünf verschiedene Gattungen bereit) 
oder das Fahrwerk für Starts und 
Landungen. (natürlich beherrscht 
ACE auch diese) ein- bzw. auszu- 
fahren. Wird ACE von zwei Spie- 
lern benutzt, entstehen hierdurch 
zusätzliche Funktionen für den Ko- 
piloten, welcher vor allem für die 
Abwehr zuständig ist. 

Der Pilot bekommt auf dem 


Bildschirm den Blick aus dem Cock- 
pit dargestellt, hier werden auch 
sämtliche benötigten Anzeigen auf- 
geführt. Zur Bewerkstelligung der 
Aufgaben stehen ein Kompaß, eine 
Rückenkamera sowie die üblichen 
navigatorischen Instrumente zur 
Verfügung. Sollte der Treibstoff 
knapp werden, was bei zügiger 
Flugweise relativ schnell der Fall 
ist, stehen zwei verschiedene Mög- 
lichkeiten zum Tanken bereit. In 
der Luft befindet sich ständig ein 
Tankflugzeug, welches genauestens 
auf gleicher Höhe und mit niedri- 


ger Geschwindigkeit angeflogen 
werden muß, um das Vorhaben in 
die Tat umzusetzen. 

Weiterhin ist es möglich, auf einem 
der drei verschiedenen Heimatflug- 
häfen zwischenzulanden, was zu- 
sätzlich den Vorteil der Reparatur 
und Neubewaffnung bringt. 


UMFANGREICHE 
INFORMATIONEN 


»Per Tastendruck kann eine Über- 
sichtskarte des Umkreises aufgeru- 
fen werden, welche Auskunft über 
Lage der feindlichen Stellungen, be- 
freundeter Flughäfen oder des 
Tankflugzeuges gibt. So ist es mög- 
lich, auch weiträumige Flugma- 
növer präzise durchzuführen und 
sich frühzeitig über angreifende Ge- 
schwader zu informieren. Angriffe 
aus der Luft sind am schwersten 
zu bewältigen, da die heranflie- 
genden Maschinen mit allen Tricks 
und Ausweichmanövern arbeiten, 
so daß sie nur mit viel Übung vor 
das Fadenkreuz zu bekommen sind. 
Sehr hilfreich ist hierbei das einge- 
baute Radar, auf welchem man die 
Flugbewegungen verfolgen und ent- 
sprechend reagieren kann. Auch die 
eingebaute Heckkamera leistet hier- 
bei gute Dienste, diese wird aller- 
dings auch als bevorzugtes Ziel 
der Angreifer gehandelt. 


ABSOLUTE PRÄZISION 
ERFORDERLICH 


Wer allzu übermütig ist, kann sich 
auch fern der Tankstationen wagen 
und auf See nach Kampfschiffen ja- 
gen, die dies natürlich nicht ohne 
weiteres h’anehmen. Auch hierbei 
leistet die Übersichtskarte gute 
Dienste, sie ermöglicht erst das ge- 
zielte Ansteuern der Schiffe. 

Abschließend bliebe zu sagen, 
daß ACE wirklich einen ernst zu 
nehmenden Flugsimulator darstellt, 
da fast wie beim richtigen Fliegen 
auf die verschiedensten Einzelhei- 
ten geachtet werden muß. Es ist 
absolute Präsision erforderlich, um 
dem Ziel ein Stück entgegen zu 
kommen. Ein sehr gelungenes Spiel, 
welches sich wohltuend von der 
Masse der Raumschiff-Ballerspiele 
abhebt. Erhältlich ist ACE zur Zeit 
nur in England bei Cascade Games 
in Harrogate, aber dem Vernehmen 
nach soll Kingsoft schon Gespräche 
führen ... T. Seibt 
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TEST 


DER TEUERSTE IST 
HIER DER BESTE 


TEST | 


Wer hat nicht schon des öfteren 
über seinen Joystick geflucht, wenn 
dieser in einem Spiel die Figur 
genau dorthin lenkte, wo sie garan- 
tiert nicht hingehört? Wir nahmen 
die gebräuchlichsten Modelle, die an 
C 16/P4 passen, unter die Lupe: 


COMMODORE JOYSTICK 


Der alte Herr unter unseren Testge- 
räten machte im Vergleich gar keine 
schlechte Figur. Die Schwergängig- 
keit ist zwar symptomatisch für die 
Joysticks seiner Generation, jedoch 


aus überzeugen. In einem Labyrinth- 
spiel, in dem es auf äußerst exakte 
Lenkung ankam, um die Figur durch 
die verschiedenen Stufen zu scheu- 
chen, wäre der Atari fast einer der 
besten geworden. Fast deshalb, weil 
er auf Dauer zu schmerzhaften 
Handverrenkungen führte, da er in 


konnte er in punkto Präzision durch- jede Richtung buchstäblich gezwun- 


1. Die Kontrahenten: 

— Commodore Joystick 
(identisch mit Atari) 

— Dynamics Competition 
Pro 3000 und 5000 

— Spectravideo Quickshot 
I und II 


2. Die Bewertung: 
Sämtliche Modelle wurden nach 
den gleichen Kriterien beurteilt: 
— Handlichkeit 
— Ergonomie 
— Ansprechverhalten 
— Präzision 
— Tischlage 
Dauerleistung “ 
— Aktionstaste 
— Stabilität 


gen werden muß. Diese Schwergän- 
gigkeit ist eine Folge der steinzeit- 
lich anmutenden Steuerweise: Der 
Hebel drückt über eine runde Pla- 
stickscheibe auf Folienkarten, wie sie 
beispielsweise in den gleichnamigen 
Tastaturen in Mini-Mini Computern 
von Sinclair und Co. gebräuchlich 
sind/waren. Dadurch ergibt sich al- 
lerdings ein Vorteil: Der Commo- 
dore erscheint aufgrund seiner Kon- 
struktionsweise schier unverwüstlich. 
Das beweist auch das gleiche Modell, 
welches schon seit Jahren durch 

die Redaktion krebst. 


DYNAMICS COMPETITION 
PRO 3000+5000 


Dieser Joystick ist für größere An- 
sprüche gedacht. Durch seinen kur- 
zen Hebel mit einem dicken Knubbel 
obendrauf suggeriert er dem Benut- 
zer. an einem Spielhallen-Knüppel 

zu sitzen. Die zwei riesigen Aktions- 
tasten lassen auch die dicksten Fin- 
ger nicht danebendrücken und run- 
den das gefällige Design ab. An dem 
stabilen Kunststoffgehäuse und der 
Elektrik gibt nichts zu der Vermu- 
tung Anlaß. dieser Apparat wäre 
kleinzukriegen. Die Steuerung er- 
folgt über flexible Stahlkontaktstrei- 
fen. welche durch den Hebel auf- 
einander gedrückt werden. Mit dem 
gleichen Prinzip arbeitet auch die 
Aktionstastensteuerung. 
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TEST 


PRO 5000 


Daß er dem Pro 3000 äußerlich 
gleicht wie ein Ei dem anderen, ob- 
wohl doch einiges mehr für den 
5000’er gezahlt werden muß, wird 
nur die Snobs unter den Anwen- 
dern stören. Die anderen wissen um 
die inneren Werte und genießen 
schweigend. Denn was der Compe- 


Competition Pro 5000 


tition Pro 5000 so schamhaft ver- 
birgt, macht ihn zum absoluten 
„Superknüppel“: In seinem Inneren 
befinden sich vier Mikroschalter, 

die mit einem leisen Klicken den her- 
gestellten Kontakt vermelden. Dies 
hat erstens zur Folge, daß sich auch 
die präzisesten Steuerbewegungen 
problemlos durchführen lassen und 
zweitens das Gehäuse lockerst in der 
Hand gehalten werden kann, da es 
sich erübrigt, nach dem Motto 
„Sicher ist Sicher“ mit Vehemenz 

in die jeweilige Richtung zu drücken. 
So erlaubt der Pro 5000 Spieldauer, 
solange Augen und Nerven mit- 
halten. 


SPECTRAVICDEO QUICKSHOT | 


Hierbei handelt es sich um ein be- 
liebtes Modell, welches zumeist sehr 
günstig angeboten wird. 

Handlich zu nennen ist diese Riesen- 
hebelei nicht gerade. Das macht der 
Quickshot allerdings gleich wieder 
durch seine Gestaltung wett: Der 
Griff liegt gut in der Hand, optimal 
ist die Aktionstastenanordnung, die- 
se liegen auf der linken vorderen 
Ecke und direkt auf dem Steuer- 
hebel. Das Dirigieren der jeweiligen 
Spielfigur geschieht äußerst leicht- 
gängig mittels einer zentralen Fe- 
der, welche auf eine Kontaktplatte 
drückt, woraufhin diese wiederum 
die Richtungskontakte betätigt. 
Wird der Quickshot in der vorge- 
sehenen Art und Weise benützt, 
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nämlich mit den vier Saugnäpfen 
auf der Tischplatte festzementiert 
(dieser Ausdruck resultiert aus der 
immensen Anhänglichkeit eben die- 
ser Saugnäpfe mit dem jeweiligen _ 
Untergrund), bedarf es schon eini-. 
ger Spielhallenerfahrung seitens des 
Anwenders. Denn die Kontakte 
sprechen so schnell und unbemerkt 
an, daß unweigerlich ungeplante 
Richtungsänderungen die Folge zu 
nervösen Umgangs mit dem Hebel 
sind. Wer mit diesem Manko nicht 
zurechtkommt, kann den Apparat 
getrost in die Hand nehmen, durch 
die bereits erwähnte Leichtgängig- 
keit kommen keine Handkrämpfe 
auf. Wieweit es mit der Haltbarkeit 
dieses Modelles bestellt ist, ließ 
sich kaum feststellen, zu denken 
gibt hier allerdings ein etwas älte- 
res Exemplar aus dem Redaktions- 
inventar, welches sich schon deut- 
lich ausgeleiert gibt. 


SPECTRAVIDEO QUICKSHOT II 


Grundsätzlich läßt sich über den 
großen Bruder des Quickshot I 
nicht mehr sagen als über das vor- 
herige Exemplar. Der einzige Unter- 
schied liegt in der äußeren Form 


und einer arretierbaren Aktionstaste. 


Durch die aufwendigere Gestaltung 
geriet der Qick I] zu einem unge- 


Spectra Quickshot 


heuer beeindruckenden Instrument. 


Der Hebel wurde stärker profiliert, 
die vergrößerten Aktionstasten lie- 
gen nun direkt unter und auf der 
Hebelspitze. Beide sind unabhängig 
voneinander zu sperren, so dafs bei 
Schießübungen jedweder Art die 
Konzentration auf die Lenkung be- 
schränkt werden kann. 


FAZIT 


Eindeutiger „Sieger“ ist wohl der 
Competition Pro 5000, welcher in 
jeder Hinsicht überzeugen konnte 
und wirklich. nichts zu wünschen 
übrig läßt. 
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BONGO TER 
CONSTRUCTION SET er E 


Begleiten Sie Bongo, die Supermaus, in sechs ver- 
schiedenen Bildern auf ihrer Suche nach den ge- 
raubten Diamanten der Prinzessin. Als einmalige 
Neuheit können Sie Ihre Bilder selber zusammen- 
bauen, spielen und abspeichern; dadurch bieten 
sich nahezu unbegrenzte Möglichkeiten. Für 1 
oder 2 Spieler; nur mit Joystick. 


GHOST TOWN 


Suchen Sie die verborgene Schatztruhe in einer 
unheimlichen Geisterstadt. Dabei wandern Sie 
durch neunzehn Bilder in wunderschöner hoch- 
auflösender Farbgrafik. Ein Grafik-Adventure für 
alle Tüftler und Knobler. Steuerung mit Joystick 
oder Tastatur. 


TOM 


Durchsuchen Sie mit Ihrem Abenteurer Tom die 
Pyramide von Manilo nach einem Schatz. Ein Arca- 
de-Adventure mit sage und schreibe 178 (einhun- 
dertachtundsiebzig!) Hires-Bildern, die ohne Nach- 
laden im Speicher sind. Steuerung mit Joystick 
oder Tastatur. 


N Y . Ein universelles Dateiprogramm für beliebige Da- 
ten (z.B. Adressen, Schallplatten, Videos, usw.). Sie 
können Ihre Datensätze eingeben, ändern, sortie- 
ren, ausdrucken, abspeichern, usw. Eine Speiche- 
rerweiterung ist empfehlenswert. 


MICRO TEXT en 


Leistungsfähiges und einfach zu bedienendes i Mena" 


Textverarbeitungsprogramm mit vielen Profi-  B24171ss100 
Funktionen, z.B. Flattersatz (linksbündig), Block- 
satz (rechtsbündig), Suchen, halbautomatischer 
Worttrennung, Textbausteine, usw. Der Textspei- 
cher umfaßt in der Grundversion ca. 6000 Zeichen 
(mehr als eine DIN A4-Seite). 


PAINT BOX 


Ein Mal- und Zeichenprogramm der Spitzenklasse 
mit vielfältigen Möglichkeiten, z.B. Linien, Strah- 
len, Rahmen, Rechteck, Kreis, Scheibe, Laden und 
Abspeichern, Füllen von Flächen, acht verschiede- 
ne Pinsel, usw., alles natürlich in 121 Farben. Be- 
dienung mit Tastatur oder Joystick. 


GALAXY 


Schnelles und abwechslungsreiches Weltraum- 
spiel mit achtzehn verschiedenen Phasen und vie- 
len interessanten Gegnern. Gute Reaktionen und 
genaue Schüsse sind dabei erforderlich, denn Fehl- 
schüsse kosten Sie nur unnötig Energie. Für 1 oder 
2 Spieler; Steuerung wahlweise mit Joystick oder 
Tastatur. 


GRANDMASTER 


Das legendäre Schachprogramm in einer vollwer- 
tigen Version für den C-16 mit überragender Spiel- 
stärke und viel Komfort (u.a. Zugzurücknahme, 
Zugvorschlag, Wahl der Bildschirmfarben, Scha- 
chuhren, Autoplay-Demomodus, usw.). Bedie- 
nung mit Tastatur. 


WINTER OLYMPIADE 


Endlich ist es soweit: spielen Sie im Familien- oder 
Freundeskreis sechs verschiedene Disziplinen mit 
bestechender Grafik: Biathlon, Slalom, Eisschnell- 
lauf, Bobfahren, Skispringen und Abfahrt. Natür- 
lich komplett mit Eröffnungszeremonie, Wahl der 
Landesfarben, usw. Für 1 bis 4 Mitspieler; Joy- 
stick(s) erforderlich. 


MICRO KALK 


Jetzt können Sie alle Kalkulationer durchführen, 
die tagtäglich anfallen, z.B. Führung einer Haus- 
haltskasse, Einkauf-/Verkauf-Erlös, usw. Schauen 
Sie sich an, warum Tabellenkalkulationen eine 
Hauptanwendung der "großen“ Personal Compu- 
ter ist. Eine Speichererweiterung ist empfehlens- 
wert. - 
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GRAFIK DESIGNER 


Entwerfen Sie mit diesem Super-Editor Ihren eige- 
nen Zeichensatz. Neben den üblichen Funktionen 
bietet dieses Programm so tolle Sachen wie: Dre- 
hen, Spiegeln, Invertieren, Multicolour-Modus, 
Scrollen, Füllen, usw. Selbst Animation von meh- 
reren Zeichen ist möglich! Alle unsere Spiele wur- 
den hiermit geschrieben! 


MUSIC MASTER 


Ein Musikprogramm mit tollen Möglichkeiten, die 
Ihren C-16 in einen fantastischen Synthesizer und 
Sequenzer verwandeln. Die mitgelieferte Demo 
zeigt, daß Ihr C-16 ein fast ebenso guter Musiker 
ist wie ein C-64. Sie können Ihre Musikstücke aber 
nicht nur in und abspeichern, sondern auch 
einfach in Ihre eigenen Programme einbauen! 


CHANNEL 2 


TURBO TAPE 


Machen Sie Ihrer Datassette Beine: mit TURBO TAPE können Sie Programme bis zu 28K Länge genauso schnell speichern und laden wie mit einer Floppy! Ein Programm von 12K f} 
Länge wird jetzt in 48 Sekunden statt in 6:42 Minuten geladen, also mehr als 8mal so schnell. Das abgespeicherte Programm kann später von jedem C-16 wieder mit Turbo-Ge- = 
schwindigkeit geladen werden; außerdem bleibt der Bildschirm während des Ladens eingeschaltet! 3 


16K-RAM 


Mit dieser Erweiterung können Sie Ihren C-16 oder 
C-116 auf 32K-RAM ausbauen, das heißt "28661 
BYTES FREE” für'Basic-Programme. Endlich haben 
Sie auch noch genug Speicherplatz zur Verfügung, 
wenn Sie im hochauflösenden Grafik-Modus ar- 
beiten. Einfach hinten einstecken - einschalten — 


jetzt 79. 


Alle aufgeführten Artikel werden selbstverständlich mit ausführlicher 
deutscher Anleitung geliefert. Die Programme laufen auch auf den 
Computern C-116 und PLUS/4; die 64K-RAM ist aus Platzgründen aber 
nur im C-16 zu verwenden! Alle Preise verstehen sich als unverbindliche 
Preisempfehlung zzgl. 5,- DM Porto & Verpackung; der Versand er- 
folgt ausschließlich per Nachnahme. 


Durch den Einbau dieser Platine können Sie Ihren 
C-16 auf die maximale Speicherkapazität von 64K 
aufrüsten, d.h. “60671 BYTES FREE” in Basic. Der 
Einbau erfolgt in wenigen Minuten einfach durch 
Austausch eines Bauteils. Es sind KEINE LÖTARBEI- 
TEN erforderlich! Um eine häufig gestellte Frage 
vorab zu beantworten: auch mit diesem 64K ist 
der C-16 nicht kompatibel zum C-64! 


jetzt 139.-\ 


5 SPITZEN - SOFTWARE 
®” MADE IN GERMANY 


» KINGSOFT 


F. Schäfer - Schnackebusch 4 - 5106 Roetgen - & 02408/51 19 


Ihren Commodore C-16: 


DAS GROSSE C-16 BUCH 


Hier erfahren Sie alles, was Sie brauchen, um die Möglichkeiten 
Ihres C-16 voll auszunutzen. Sämtliche wichtigen Bereiche, wie z.B. 
Grafik, Sound, Maschinensprache werden ausführlich behandelt 
und mit vielen Beispielen re Dieses Buch ist für jeden 
Commodore-16 Besitzer unentbehrlich. = . 

Einzelpreis: 


- JOYSTICK 


Original Commodore- 
Joystick im eleganten 
und handlichen De- 
sign für viele Stunden 
Spielspaß; steigert die 
Freude bei praktisch 
allen Spielen enorm. 
Direkt anschlußfertig 
für Ihren C-16. 


Einzelpreis: 


aD | 
PLUS-PAKET 29: 


Die ideale Spielesammlung für alle Einsteiger, 
bestehend aus 4 absoluten Top-Programmen 


GRANDMASTER, spielstarkes Schachprogramm mit viel Komfort 
TOM, faszinierendes Arcade-Adventure mit 178 (!) Bildern 
GALAXY, schnelles und abwechslungsreiches Weltraumspiel 


GHOST TOWN, spannendes Grafik-Adventure für die ganze Familie Sie sparen 28 2 
Einzelpreis: > 


u | & 
I nasorlle 3 Teile zusammen 09E 
ee ee statt 97- nur Q 


